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EXPERIENCIA Y PRACTICAS EN LOGO HEEE 


ON. unos ejemplos simples 
vamos a profundizar en al- 
gunas primitivas del LOGO. 

Con las siguientes órde- 
nes la Tortuga dibujará cua- 
tro figuras geométricas, Las 
posiciones iniciales de cada 
figura las conseguimos con 


las órdenes: 


PONX n 
PONY n 


Cambiamos la paleta de color con la 
primitiva: 
PONPALETA n mn=00n=]l) 


FIGURAS GEOMETRICAS 


Figura 1. 


INICIALIZACION 
? PM 
? BP 
? SL 
? PONCL 2 
? OT 
DIBUJOS FIGURAS 


? PONX -50 PONY 50 BL 

? REPITE 2 [GD 90 AV 100 GD 90 AV 60] 
? SL PONX -60 PONY 15 BL 

? REPITE 3 [GD 120 AV 80] 

? SL PONX -20 PONY -5 BL 

? REPITE 36 [AV 6 GD 10] 

? SL PONX 10 PONY -20 BL 

? REPITE 4 [GD 90 AV 70] 


RELLENADO DE LAS FIGURAS 


? SL PONX -40 PONY 40 BL 
? PONCL 3 

? RELLENA 

? PONPALETA 0 

?PONCL2 

? SL PONX -50 PONY -20 BL 
? RELLENA 

? PONCL 1 

? SL PONX 18 PONY -1 BL 

? RELLENA 


Puedo variar el sentido de orientación de la 
Tortuga con otra nueva orden: PONRUMBO. 


EXPERIENCIAS Y PRACTICAS EN 1060 AAA 


? PONPALETA 1 

? PONCL 2 

? SL PONX 30 PONY -50 BL 
? RELLENA 


NOTA: Si tu versión LOGO no dispone 
de la primitiva PONPALETA, no teclees la or- 
den. 


El siguiente ejemplo dibuja en pantalla 
un cuadrado, que vamos rellenándolo de dife- 
rentes colores. 

Utilizamos aquí la orden ESPERA n para 
que observes que, tras rellenar la figura de un 
color, la Tortuga está unos segundos sin ac- 
tuar; fíjate que la orden en cuestión está des- 
pués de RELLENA, 


INICIALIZACION 
? PM 
? BP 
? SL 
? PONCL 2 
? OT 
DIBUJO 


? PONX -100 PONY 40 BL 
? REPITE 4 [GD 90 AV 100] 


RELLENADO 


? SL PONX -80 PONY 20 BL 
? REPITE 10 [PONCL AZAR 4 RELLENA 
ESPERA 15] 


Cuando se ejecuten estas órdenes no- 
sotros no sabremos qué sucesión de colores 
aparecerán, ya que no hemos fijado los colo- 
res, sino que los seleccionamos al azar. 

Cuando la velocidad de algún proceso 
que realizamos resulta demasiado rápida, no te- 
nemos tiempo de observar algo con deteni- 
miento, podemos intercalar en el programa la 
orden ESPERA n, donde n serán pulsaciones 
de reloj, y deberá ser un número entero o bien 
será redondeado. 


? ESPERA 1092 
Si compruebas el tiempo transcurrido 


en tu reloj verás que 1092 pulsaciones de re- 
loj corresponden a un minuto. 


? BP BL PONCL 1 
? REPITE 4 [AV 90 GD 90] 


? ESPERA 100 BP 
? REPITE 36 [AV 7 GD 10] 
? ESPERA 200 BP 

Ya hemos utilizado en varias ocasiones ' 
dos órdenes con las que podíamos posicionar 
a la Tortuga en cualquier zona de la pantalla 
sin tener que variar su orientación y sin tener 
que hacerla avanzar o retroceder. 

Se trata de las órdenes: 


PONX y PONY 


Con estas dos órdenes podíamos variar 
la posición de la Tortuga, pero bien en una di- 
rección o en otra alternativamente. Es decir, 
podíamos primero desplazarla en el sentido 
de las abscisas y luego en el sentido de las or- 
denadas, por ejemplo. 

Existe otra orden en la cual se dan las 
coordenadas x e y, a la vez. Esta orden es: 


PONPOS [X Y] 


PONPOS es la abreviatura de PON PO- 
SICION. 
Si, por ejemplo, damos la orden: 


PONPOS [90 40] 
Nos aparecerá lo siguiente: 


Figura 2. 


La Tortuga se posiciona en las coorde- 
nadas indicadas, y a pesar de que se ha mo- 
vido en diagonal, su rumbo no ha variado. 

Si hasta ahora, cuando queríamos posi- 
cionar la Tortuga en una determinada posición 
de la pantalla, utilizádbamos dos órdenes, aho- 
ra podemos hacer lo mismo, pero utilizando 
sólo una orden. 

Si en esta orden se utilizan decimales, 
los dos primeros se toman en cuenta y el ter- 
cero será redondeado. 


En una sola orden puedo englobar más de una. 
Este es el caso de la orden PONLAPIZ. 


Recuerda que la Tortuga, si está en la 
posición central, tiene de coordenadas (0,0) y 
que los desplazamientos hacia la derecha, en 
el sentido de las x, o hacia arriba en el senti- 
do de la y, serán positivos. Hacia la izquierda 
en x, o hacia abajo en y, serán negativos. 

Teclea e introduce las siguientes órde- 
nes y lo verás: 


INICIALIZACION 
? PM 
? BP 
? OT 
? PONFONDO 1 
? PONCL 2 
DIBUJO 


? SL PONPOS [-159 124] 
? BL PONPOS [160 125] 

? SL PONPOS [-159 125] 
? BL PONPOS [160 -124] 


Obtendrás una pantalla como ésta: 


Figura 3. 

En este caso, los valores que hemos 
dado a la orden PONPOS sólo son válidos si po- 
sees un ordenador que tenga una resolución 
gráfica de 320 x 250 puntos o pixels. Si no es 
así, cambia estos valores limitándote a la reso- 
lución de tu ordenador. 

Si cuando introducimos la orden PON- 
POS [X Y] tenemos el lápiz alzado, nos situa- 
mos en la posición elegida sin dejar rastro; si 
lo bajamos, dejaremos una línea pintada des- 
de donde nos encontrábamos hasta el punto 
elegido [X Y]. 

Ya sabemos acceder a cualquier punto 


de la pantalla dando las coordenadas corres- 
pondientes. Cambiemos de rumbo, 
Introduce las siguientes órdenes: 


INICIALIZACION 


? BP BL 

? PM MT 

? PONFONDO 1 
? PONCL 2 


PUNTOS CARDINALES 


? PONRUMBO 90 AV 100 
? CENTRO 

? PONRUMBO 180 AV 100 
? CENTRO 

? PONRUMBO 270 AV 100 
? CENTRO 

? PONRUMBO 360 AV 100 
? CENTRO 

? PONCL 3 

? PONRUMBO 0 AV 100 


La Tortuga ha ido dibujando hacia los 
cuatro puntos cardinales; con rumbo 90 hacia 
el este, rumbo 180 hacia el sur, rumbo 270 ha- 
cia el oeste y rumbo 360 hacia el norte. 


Figura 4. 
PONRUMBO n 


Practicando con esta orden apreciarás 
la diferencia existente con las órdenes GD n y 
GI n, ya que el movimiento de la Tortuga con 
estas dos órdenes es relativo respecto a su 
orientación; en cambio, con PONRUMBO el 
movimiento de la Tortuga es absoluto. 

Aquí tienes dos ejemplos que te ayuda- 
rán a ver mejor cómo funciona esta nueva or- 
den: 


Puedo dar diferentes colores al lápiz, al fondo, al 


texto y al fondo del texto. 


EXPERIENCIAS Y PRACTICAS EN 1060 [HA 


LINEAS RADIALES 
INICIALIZACION 

?2 PM 

? BP 

? OT 


? PONFONDO 1 


DIBUJO 


? REPITE 100 [PONRUMBO AZAR 360 PONCL 
AZAR 4 AV AZAR 100 CENTRO] 


Con estas órdenes obtenemos un con- 
junto de líneas que parten todas del centro. 
Cada una de ellas tiene tanto una longitud 
como un color elegido al azar. De igual mane- 
ra, cada una parte del centro hacia una direc- 
ción que desconocemos, ya que se determina 
el rumbo de la Tortuga de una forma aleato- 
ria, pudiendo oscilar entre 0 y 359 grados. 


INICIALIZACION 
? PM 
? BP 
?2 OT 
? PONFONDO 0 
? SL 
DIBUJO 
? PONX -58 
? BL 
? REPITE 36 [AV 10 GD 10] 
? SL CENTRO 
? BL RELLENA 
? PONCL 3 
? REPITE 50 [PONRUMBO AZAR 360 AV 50 
CENTRO] 
? PONCL 2 
? REPITE 50 [PONRUMBO AZAR 360 AV 40 
CENTRO] 
PINTAR PUNTOS 
PUNTO [X Y] 
Ejemplo: 
PUNTO [80 62] 


PUNTO [80 -62] 
- PUNTO [-80 62] 
PUNTO [-80 -62] 


Los puntos se pintan en la pantalla sin 
que la Tortuga se mueva. 


Figura $. 

Recordemos que el punto [00] es el 
centro de la pantalla. 

Si damos a X un valor superior a -159 ó 
160 el punto aparecerá o no marcado, depen- 
diendo del estado en que se encuentra la pan- 
talla. Recuerda las primitivas: ENLAZA, LIMI- 
TA y VENTANA. 

Lo mismo ocurrirá con los valores -124 
y 125 de la coordenada Y. 

Estos valores de X e Y que hemos es- 
pecificado son válidos en pantallas con reso- 
lución 320 x 250 puntos. 

Tanto para el valor de X como Y se tie- 
nen en cuenta dos decimales. 


? PONCL 2 
? PUNTO [30 50] 


El color del punto dibujado es el que en 
ese momento tiene el lápiz. 


? BP 

? SUBELAPIZ 

? PONCL 3 

? PUNTO [50 40] 


Observa que, aunque el lápiz está alza- 
do, el punto se ha marcado. 
? BP 
? PONLAPIZ [SL 3 1] 
? PUNTO [580 40] 


En este caso hemos introducido una 
nueva orden: 


PONLAPIZ 


Esta orden admite tres parámetros que 
deben ir encerrados entre corchetes. Estos 
son: 


Algunas versiones me permiten cambiar el color 


de la Tortuga. 


— Estado del lápiz (SL, BL, IL, GOMA). 
— Color del lápiz. 
— Paleta de color. 


Esta orden nos permite englobar a tres 
en una. Así nos evitamos el tener que dar más 
órdenes de lo necesario. 

La siguiente orden: 


PONLAPIZ [SL 2 0] 
Equivale a las órdenes: 


SL 
PONCL 2 
PALETA 0 


Por ejemplo, con la orden: 
PONLAPIZ [SL 1 1] AV 100 


Avanzamos sin pintar. 
Y con la orden: 


PONLAPIZ [BL 1 0] AV 100 


Pintamos una línea. 

Esta orden no la poseen todas las ver- 
siones del LOGO. Sí existe en el LOGO de los 
PC-compatibles. 

Aquí tienes las órdenes que dibujan 
una habitación en tres dimensiones gracias a 
un cierto sentido de profundidad que le he- 
mos dado. 


INICIALIZACION 
? PM 
? BP 
? SL 
?2 OT 
? PONCL 1 
PRIMER PLANO 
? PONPOS [100 -30] 
? BL 
? REPITE 2 [AV 120 Gl 90 AV 200 GI 90] 
SEGUNDO PLANO 
? SL 
? PONPOS [32 15] 
? BL 


? REPITE 2 [AV 30 GI 90 AV 65 GI 90] 
? PONPOS [100 -30] 
? AV 120 PONPOS [32 45] 


? GI90 AV 65 

? PONPOS [-100 90] 
?GI90 AV 120 

? PONPOS [-33 15] 


ALFOMBRA 


? SL PONPOS [-20 15] 

? BL PONPOS [20 5] PONPOS [88 -20] 
? PONPOS [-55 -20] PONPOS [-20 5] 
? SL PONPOS [-17 2] 

? BL PONPOS [17 2] PONPOS [44 -17] 
? PONPOS [-44 -17] PONPOS [-17 2] 
? SL AV 4 BL 

? PONCL 2 RELLENA 


PARED TRASERA 


? SL RE 40 BL 

? PONCL 15 

? RELLENA 

? PONCL 13 AV 10 
? SL GI 90 AV 35 

? BLGI90 AV 9 


CUADRO 


? PONCL 6 SL 

? PONPOS [-80 10] 
? BL 

? PONPOS [-80 50] 
? PONPOS [-50 35] 
? PONPOS [-50 20] 
? PONPOS [-80 10] 
? SL GD 45 AV 4 

? RELLENA 


Si quieres, puedes ir completando la ha- 
bitación dibujando alguna cosa más en su in- 
terior. Puedes también cambiar los colores y 
las dimensiones. 


2 Colores HI 


Con respecto al color, ya vimos dos de las ór- 
denes más importantes que el Logo posee. Eran 
PONCL y PONFONDO. Con ellas cambiamos el color 
tanto del lápiz de la Tortuga como el del fondo de la 
pantalla. Vimos también los cuadros con los códigos 
de colores que poseen diferentes ordenadores. 


Hay órdenes como PUNTO, que no las realiza 


la Tortuga. 


EXPERIENCIAS Y PRACTICAS EN L0G0 HA 


En esta ocasión vamos a completar el tema del 
color, explicando otra serie de órdenes que el Logo 
posee. 

Existe otra orden que nos permite cambiar el 
color del texto; se trata de la orden PONCOLORTEX- 
TO, y su forma abreviada es PONCT. 

Dependiendo del ordenador, esta orden pre- 
senta algunas diferencias. Vamos a verla en particu- 
lar para cada uno de ellos. 


PC-COMPATIBLES 
PONCT n 


Pone el color al texto que determina el valor 
den. 

Esta orden puede escribirse tanto de la forma 
completa como de la forma abreviada: 


MSX 


PONCT n 
PONCT lista 


Si la orden se da de la forma PONCT n, el co- 
lor del texto aparecerá, desde el momento que se da 
la orden, del color que determina n. 

Si en lugar de dar sólo un valor damos dos, es 
decir, utilizamos la segunda forma, el primer valor 
. | nos determinará el color del texto y el segundo el co- 
lor del fondo del texto. 

Esta orden sólo puede darse en este caso, de 
forma abreviada. 


SPECTRUM 
PONCT n m 


El color del fondo del texto será el que deter- 
mina n, y el color del texto será el que determina m. 

En este ordenador, la orden se tiene que dar 
también de la forma abreviada. 


Hi Otras órdenes de color 


Existe en los PC-compatibles una forma para 
dar color al fondo del texto, al igual que lo hacíamos 


en los otros dos casos. Esto lo conseguimos con la 
orden: 


PONFONDOTEXTO n o bien 
PONFT n 


Esta orden pone el color del fondo de los ca- 
racteres que aparecen en la pantalla, según el valor 
de n. 

En los MSX podemos variar el color de la for- 
ma de la Tortuga si damos la orden: 


PONCF n 


Dependiendo del valor de n, la Tortuga nos 
aparecerá de un color o de otro, 

En los SPECTRUM podemos variar el color del 
borde de la pantalla. Esto lo conseguimos con la or- 


den: 
PONCOLORBORDE n 
o bien 

PONCB n 


El borde se pondrá del color que viene dado 
por n. 
En todas estas órdenes que hemos tratado, el 


>| valor de n ha de ser uno que corresponda al cuadro 


de código de colores que vimos anteriormente. 


Ml Mensajes Logo 


— NO SE QUE DEBO HACER CON o DIME 
QUE HACER CON. 


No se ha precisado el dato que debe recibir 
la orden o sentencia especificada. 


— FALTAN DATOS PARA o FALTAN DATOS 
EN. 


Indica que la orden escrita precisa dar más 
datos para ejecutarse. 


— ERROR EN EL SISTEMA LOGO, 


La carga del Logo no ha sido correcta. Hay 
que repetir la carga. 


— ALTO o INTERRUMPIDO, 


Los mensajes que el LOGO me da varían según 
el ordenador y la versión con la que estemos 


trabajando. 


Se ha detenido la ejecución de un proceso. 
— ... ES UNA PRIMITIVA. 


Se ha utilizado como dato el nombre de algu- 
na primitiva. 

— PAUSA. 

Por pulsar F5 la ejecución se detiene. Se pue- 
de continuar tecleando CONTINUA, (Este mensaje 
sólo aparece en las versiones de algunos ordenado- 


res en concreto, como por ejemplo, en los PC- 
compatibles.) 


El Cuadro resumen 


— PONFOS [X Y]. 


La Tortuga se sitúa en el punto de coordena- 
das que determinan los valores de X e Y. 

— PONRUMBO n. 

La orientación de la Tortuga variará hacia la 


dirección que determina n, que vendrá expresada en 
grados. 


— PUNTO [X Y] 


Se dibuja un punto en la posición que deter- 
minan las coordenadas X e Y permaneciendo la Tor- 
tuga en el lugar en que se encontraba. 


— PONLAPIZ [estado lápiz color paleta]. 


Define el estado del lápiz (SL, BL, IL o GOMA), 
el color y la paleta, respectivamente. 


— PONCOLORTEXTO n. 


PONCT n. 
PONCT lista. 
PONCT n m. 


Pone del color que determina n el texto, si sólo 
se especifica un valor. Si se especifica un segundo 
valor, corresponderá al color del fondo del texto. 


— PONFONDOTEXTO n. 
PONFT n. 


Pone del color que determina n, el fondo del 
texto. (Válido para ordenadores PC-compatibles.) 


— PONCOLORBORDE n. 
PONCB n. 


Pone el borde de la pantalla del color que de- 
termina n. (Válido para ordenadores Spectrum.) 


— PONCP n. 


Pone del color que determina n, el color de la 
forma de la Tortuga que tenemos definida. (Válido 
para ordenadores MSX.) 


EE Ejercicios 


l. 


2. 


Utilizando la orden PONFOS [X Y], intenta 
hacer el siguiente dibujo: 


Figura 6. 
¿Hubiese aparecido el mismo dibujo, si en 
vez de dar la orden GD 120 hubiésemos 
dado la orden PONRUMBO 120? 
Practica con la orden PONRUMBO dibujan- 
do la siguiente figura: 


Figura 7. 


Dependiendo del ordenador, la resolución gráfica 


es distinta. 


EXPERIENCIA Y PRACTICAS EN L0G60 [AAA 


4. Haz el siguiente dibujo: 


Figura 8. 


5. Son correctas las siguientes órdenes: 


— PONPOS [AZAR 100 30] 

— PUNTO (90 20) 

— PONRUMBO AZAR 200 AV 40 GD 60 RE 
100 

— PONLAPIZ [GOMA 2] 

— PONCT 3 

— ESPERA AZAR 3000 


El Solución a los ejercicios 
Z: 


INICIALIZACION 
? PM 
? BP 
? OT 
? SL 
? PONFONDO 9 
? PONCL 2 


DIBUJO TRIANGULOS 
? PONPOS [70 52] 
? BL 
? REPITE 3 [AV 40 GD 120] 
? SL 
? PONPOS [70 -52] 
? BL 
? REPITE 3 [AV 40 GD 120] 
? SL 
? PONPOS (-70 52] 
? BL 
? REPITE 3 [AV 40 GD 120] 
? SL 
? PONPOS [-70 -52] 


? BL 
? REPITE 3 [AV 40 GD 120] 


TRAZADO DE LAS LINEAS 
? SL 
? PONPOS [70 52] 
? BL 


? PONPOS [-70 -12] 
? SL 

? PONPOS [-70 52] 
? BL 

? PONPOS [70 -12] 


No, ya que pintaríamos siempre en la 
misma dirección. La Tortuga estaría siempre 
orientada hacia la misma dirección (120 gra- 
dos) y lo que se tiene que conseguir es que, 
después de avanzar, gire 120 grados. 


de 


INICIALIZACION 
? PM 
? BP 
? SL 
?OT 
? PONCL 1 


DIBUJO DE LA ESPIRAL 

? PONPOS [-100 50] 

? BL 
? REPITE 4 [REPITE 27 [AV 4 GD 10] GD 
90] 


DIBUJO DE LAS TRES LINEAS 
? SL 


? PONPOS [12 -35] 
? BL 

? PONRUMBO 310 
? AV 160 SL 

? PONPOS [24 -35] 
? BL 

? PONRUMBO 310 
? AV 160 SL 

? BL 

? PONRUMBO 310 
? AV 160 


4: 


INICIALIZACION 
? PM 


Hay ordenadores en los que sólo se pueden dar 
dos colores por cada matriz de 8 x 8 puntos. 


ES AA ESE O RA $ 


? SL CRUZ 
? BP ? RE 30 GI 90 AV 10 
NOT ?GI90 AV 5 GD 90 
CENTRANDO DIBUJO eo 
? GI90 AV 35 ?AV5GD90AV?7 
? GD 90 RE 60 ?GI90 AV 5 GD 90 
? BL ?AV5GD90AV 5 
?GI90 AV 10 
DIBUJO ? RE 4 GD 90 SL 
? REPITE 2 [AV 10 GD 90 AV 70 GD 90] ? AV 2 BL RELLENA 
? GI 90 RE 5 GD 90 
? SL AV 10 BL Bs 
?AV5GCD90 AV 60 
? GD 90 AV 5 RE 5 — PONPOS [AZAR 100 30]: INCORRECTA. La 
? GD 90 AV 15 GD 90 orden PONPOS no admite como parámetro 
? AV 65 GD 45 AV 5 la orden AZAR. 
? GI 135 AV 37 RE 37 — PUNTO (90 20): INCORRECTA, En lugar de 
: E ia o paréntesis deben ir corchetes. 
o — PONRUMBO AZAR 200 AV 40 GD 60 RE 100: 
? RE 28 GD 115 AV 30 
9 SL CENTRO CORRECTA. 
? RE 45 Gl 90 AV 15 — PONLAPIZ [GOMA 2]: INCORRECTA. Falta 
? GD 90 BL AV 65 un parámetro; esta orden debe contener 
| y a a siempre tres datos. 
| 2 G1 30 AV 30 CD 115 — PONCT 3: CORRECTA. 
| ? AV 55 — ESPERA AZAR 3000: CORRECTA. 


EE Si no posees un monitor o televisor en color, 
| los colores aparecen como diferentes intensida- 
| des de los que tenga tu monitor. 


EE En el Spectrum, la forma de ocultar la Tortu- 
| ga no es con la orden OT, sino con la orden ET (es- 
conde tortuga). 


il La orden PONPALETA sólo la posee el logo 
de los PC-compatibles. 


E En los ordenadores PC compatibles cuando 
doy la orden PM, a la vez que la pantalla se sitúa 
en el modo mixto, me aparece la Tortuga. 


13 


MANEJO DE SPRITES Y ELEMENTOS GRAFICOS 0502 


MOVIMIENTO 
DE FIGURAS COMPLEJAS 


ASTA ahora sólo hemos he- 
cho programas de movi- 
miento con figuras com- 
puestas de un solo carácter. 
Tal es el caso de los progra- 
_mas que vimos de la estre- 
lla fugaz o de la pelota que 
va rebotando contra las pa- 


redes. 

En este tomo veremos cómo realizar 
movimientos con figuras compuestas por más 
de un carácter. Dichos caracteres pueden ser 
definidos por el usuario o bien caracteres ya 
predefinidos dentro del propio ordenador. 

En tomos anteriores vimos que había di- 
versos tipos de movimiento según la dirección 
y el sentido que llevase el carácter al mover- 
se por la pantalla. Dichos tipos de movimiento 
son aplicables también a las figuras formadas 
por más de un carácter, pero al ser estas figu- 
ras más complicadas, el movimiento se vuelve 
más complejo. 

Los tipos de movimientos posibles que 
vimos eran: 


— Movimiento horizontal. De izquierda 
a derecha o de derecha a izquierda. 

— Movimiento vertical. De arriba a 
abajo o de abajo a arriba. 

— Movimiento diagonal. 

— Movimiento circular. 


Fig. 1. Definición de un hombrecillo de un solo carácter. 
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— Movimiento uniformemente acelera- 
do o decelerado. 


Estudiaremos todos estos tipos de mo- 
vimiento para .figuras complejas, pero antes 
vamos a ver algunas figuras complejas que po- 
demos dibujar en nuestro ordenador. 

Cuando queremos hacer que un hom- 
bre se mueva por la pantalla tenemos dos po- 
sibles opciones. Una es definir dicho hombre 
en un solo carácter (ver fig. 1). La otra es de- 
finirlo mediante varios caracteres. De esta úl- 
tima manera el hombrecillo estará mejor defi- 
nido y se parecerá más a un hombre de ver- 
dad (ver fig. 2). 


Fig. 2. Definición de un hombrecillo utilizando tres caracteres, 
uno debajo de otro. 


Otra de las máneras de definir figuras Valor Valor Valor 


más complejas es utilizando los caracteres que ASCII Carácter ASCII Carácter ASCII Carácter 
ya tiene definidos el ordenador. Conjugando 
varios de dichos caracteres, se pueden crear - 177 M8 193 as 57-208 + 
figuras bastante complejas y vistosas. Como 178 pS 194 210 — 
ya vimos en tomos anteriores, todos los orde- 179 | 195 ZW - 
nadores tienen, aparte del grupo de caracte- 180 3 196 NS te 
res normales, un grupo de caracteres llama- 181 = 197 + 213 E 
dos semigráficos. Con estos caracteres se pue- 
: h 182 A 198 E 214 mr 
den realizar figuras bastante buenas sin nece- +88 :0b EE + 
sidad de tener que estar definiendo nuestros ES > E + 
| propios caracteres, En la figurá 3 vemos algu- eN > 20 216 E 
nas figuras que pueden realizarse con los ca- 185 | 201 5 29 
racteres normales del ordenador, En la núme- 186 Il 202 18 r 
| ro 4 vemos algunas figuras que pueden reali- 187 Du 203 219 E 
zarse con los caracteres semigráficos. 188 2 204 220 e 
| 189 - 205 3201 B 
| 190 - 206 222 K 
191 = 207 DS =a 
192 L 208 JE 
CIEMPIES 
IBM 
NAVE INVASORA 
A 7 Mu O 
00 se El 11.6 Bl im 
Fig, 3. Estas son algunas de las figuras que podemos definir con E 99 LA 117 a] 175 
los caracteres de nuestro ordenador, A 100 PX] 118 (8 
176 
EF ot. vw HB 7 
q 102 (+) 120 E 178 
O 18 [O 11 BH] 179 
E AVION Ol 194. 101-122 o as 
6105240 0 O 
ml ocre A 
p] A E a 
A - DS 
¡ARA A 
108 
Fig. 4. Estas son algunas de las figuras que podemos dibujar O ES 109 O 186 
con los caracteres semigráficos de nuestro ordenador. N 109 | 167 a] 187 
E D mo Edo 1 [8 y 
Como los caracteres semigráficos va- D m Pp a] 
rían de unos ordenadores a otros, en la figura 169 189 
5 os mostramos las tablas de dichos caracte- O 112 O 170 ) 190 
res en todos los ordenadores. us BD 31m BE 101 
Una vez que hemos visto cómo son las O 11518 
figuras complejas y cómo construirlas, vamos 172 
a entrar de lleno en la materia que nos inte- 
resa. COMMODORE 
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MANEJO DE SPRITES Y ELEMENTOS GRAFICOS HA 


CARACTER CHR$ 


Dm 


m 


3 


mm 


ds 


a 
mo, 
ma 

8 

18 
y" 
P 
7 
s 
E | 
el 
a 


A dos da cad A A 


P 
a 
ul 

AI tes EA EL A IA Mo Y 18 0 ¡| 


ar Lhil9""" dom: 8. 


SPECTRUM 


Fig. 5. Estos son los caracteres semigráficos de los distintos 
ordenadores. 


El Movimiento horizontal de figuras 
complejas 


Este tipo de movimiento es casi igual 
que el que se vio para figuras compuestas de 
un solo carácter. La única diferencia estriba 
en que, como son más de un carácter los que 
configuran el objeto a mover, habrá que tener 
en cuenta todos y cada uno de los caracteres 
por separado. 

El programa 1 nos muestra un movi- 
miento horizontal de izquierda a derecha muy 
sencillo. 

Las modificaciones necesarias para que 
este programa funcione en ordenadores dis- 
tintos del IBM y del AMSTRAD son las siguien- 
tes: 


10 REM KEXREEREA ERA RE KESKELRFARELERA 
20 REM X MOVIMIENTO DE UN GUSANO: DE x 
30 REM %k IZQUIERDA A DERECHA POR LA * 
40 REM k PANTALLA. * 
50 REM KREREKKKCLE RELE SALER ELE RERALES 
$0 REM 
70 REM kkk DEFINICION DEL GUSANO kk 
80. REM 
90 LET A$=" 000000" 

100. REM : 
110 REM kkk MOVIMIENTO DEL GUSANO «kx 
120 REM 
130 CLS 
140 FOR I=1 TO 25 
150  LOCATE 10,1 
160 PRINT AR 
170 FOR J=1 TO 100 
180 — NEXT J 
190 NEXT 1 

200 END 


COMMODORE 


130 PRINT "<SHIFT-HOME>” 
150 LET Y=10:LET X=I:GOSUB 9500 


Para que este programa funcione es ne- 
cesario unirlo a la rutina LOCATE PARA COM- 
MODORE que se dio en el tomo 1 y que vol- 
vemos a repetir en éste. 


MSX SPECTRUM 
150 LOCATE 1,10 150 PRINT AT 10,1; 


El funcionamiento es muy sencillo, por- 
que la figura está definida en una sola línea. 
Cuando la figura tiene diversas partes, que se 
colocan en líneas distintas, el movimiento se 
complica un poco más. 
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En este primer programa la técnica de 
dibujo y borrado no tiene ninguna dificultad. 
La única complicación está en la forma de 
borrar. Esto se consigue poniendo un espacio 
en blanco al final del gusano. Cuando tenga- 
mos que mover el gusano de una posición n 
de la pantalla a otra posición n + 1, el espacio 
en blanco borrará el último carácter de figura 
anteriormente impresa en la pantalla. 

Un ejemplo más complicado, en el cual 
puede verse cómo el gusano va reptando, es 
el que aparece en el programa 2. 


REM 
REM 


KRRRELRERE RELE LA GER ARER ERE LRLERERES 
2 MOVIMIENTO DE UN GUSAND REPTANTE £ 
2 DE IZQUIERDA A DERECHA DE LA PAN * 
% TALLA. * 
KARKEEREEKRERRLKEREXERERE RARE LEER LAR 


Xx DEFINICION DEL GUSANO *x%x 


A$=" 000000" 
B$="  oD000" 


KKX MOVIMIENTO DEL GUSANO £xx 


FOR I=1 10 25 
LOCATE 10,1 
PRINT As 

FOR J=1 TO 100 
NEXT 3 

LOCATE 10,1 
PRINT Bs 

FOR J=1 TO 50 
NEXT 3 

NEXT 1 

END 


Las modificaciones que hay que tener 
en este segundo programa son las siguientes: 


COMMODORE 


140 PRINT “<SHIFT-HOME>" 
160 LET X=I:LET I=10:GOSUB 9500 
200 GOSUB 9500 
También hay que incluir la rutina LO- 
CATE PARA COMMODORE que se dio en el 
primer tomo y que os volvemos a dar en éste 
en la sección de TRUCOS DE PROGRAMA- 


CIÓN. 
MSX SPECTRUM 


160 LOCATE 1,10 160 PRINT AT 10,1; 
200 LOCATE 1,10 200 PRINT AT 10,1; 


Con este segundo programa ya hemos 
entrado un poco en las nociones de la anima- 
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ción. Hasta ahora habíamos visto y realizado 
programas de movimiento, pero en ellos había 
muy poco de animación. Al trabajar con figu- 
ras más complejas la animación resulta más 
sencilla y más atractiva. 


Este programa funciona de una forma 
muy parecida.al anterior, la única diferencia 
se encuentra en la contracción que hace el gu- 
sano cada vez que se mueve una posición a la 
derecha. 

Esta contracción del cuerpo del gusano 
se consigue, como podéis ver en el listado del 
programa, imprimiendo encima del gusano de 
tamaño normal otro gusano más pequeño. El 
bucle de retardo que hay entre las líneas 220 
y 230 hace que esta contracción sea visible. Si 
este bucle no estuviese, no se podría apreciar 
dicho movimiento. 

Estos dos primeros programas no tie- 
nen ninguna dificultad porque, como hemos 
dicho antes, el movimiento se realiza en una 
sola línea. El programa 3 simula el movimien- 
to de un ciempiés, que ocupará tres líneas por 
la pantalla de derecha a izquierda. 


0.000 00 pna sola línea 


00000 > Tres líneas 


Figura 6. 


AENERERRRALERENCUEERIRERELACIRES 
X MOVIMIENTO DE UN. CIENPIES DE Xx 
* DERECHA A IZQUIERDA DE LA * 
% PANTALLA. : ; * 
EXERRRKRERERELARERELR REL ERRRLAAL 


10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 
BO REM 
90 LET 

100 LET 

110 LET 

120 REM 

130 REM ££k MOVIMIENTO DEL CIENPIES £4k 

140 REM : 

150 CLS : 

160 FOR 1=25 TO 1 STEP -1 

170 LOCATE 9,1 

180 PRINT As 

190 LOCATE 10,1 


%£X DEFINICION DEL CIENPIES £kx 


ar ree” 
B$="<0DD00D * 
Csó=" «(cc 
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200 PRINT B$ 

210 LOCATE 11,1 
220 PRINT C$ 

230 FOR J=1 TO 100 
240 NEXT J 

250 NEXT 1 

250 END 


Como siempre, para aquellos usuarios 
de ordenadores distintos del IBM y del Ams- 
trad se incluyen las modificaciones. 


COMMODORE 


150 PRINT "<SHIFT-HOME>" 

170 LET X=I:LET Y=9:GOSUB 9500 
190 LET Y=10:GOSUB 9500 

210 LET Y=11:GOSUB 9500 


Incluyendo la rutina LOCATE PARA 
COMMODORE. 


MSX SPECTRUM 

170 LOCATE 1,9 170 PRINT AT 9,1; 
190 LOCATE 1,10 190 PRINT AT 10,1; 
210 LOCATE 1,11 210 PRINT AT 11,1; 


Como puede apreciarse, en este último 
programa la forma de imprimir figuras que 
ocupen más de una línea es imprimirlas línea 
a línea. 

Hay que tener mucho cuidado con el ta- 
maño de estas figuras, pues si las hacemos de- 
masiado grandes, el programa se volverá muy 
lento y perderá toda su riqueza. 

Cuando realices tus propios programas 
de movimiento con figuras complejas ten en 
cuenta que, si bien el programa por sí sólo 
puede ser lo suficientemente veloz como para 
necesitar un bucle de retardo, cuando estos 
programas pertenezcan a otro programa más 
grande, dicho bucle de retardo no a va ser ne- 
cesario, pues ese tiempo muerto se utilizará 
para mover otras figuras. 

Por fin, y ya para terminar con el movi- 
miento horizontal de figuras complejas, vamos 
a ver un programa que nos dibuja un ciem- 
piés, pero moviendo las patas. 


10 REM KKÉKKKEXRELRERE REEL E LALA REA 
20 REM * MOVIMIENTO DE UN CIENPIES QUE * 
30 REM £ MUEVE LAS PATAS Y SE DESPLAZA Kk 
40 REM k DE DERECHA A IZQUIERDA x 
50 REM KEXARREKERE ARRE EA AERECA KA RERAELER 
60 REM 

70 REM £%kk% DEFINICION DEL CIENPIES *xkk 
80 REM 
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90 REM *kkk POSICION NUMERO 1 Xk% 
100 REM 

110 DIM A$(3):DIM B$(3)1DIM C$(3) 
120 LET A$(1)=" ((((í " 

130 LET B$(1)="<00000 *" 

140 LET C$(1)=" ((((í " 

150 REM 

160 REM K£kk POSICION NUMERO 2 £4k 
170 REM 

190 LET A$(2)=" TIITI " 

200 LET B$(2)="=00D000 " 

210 LET C$(2)=" IIITI * 

220 REM 

230 REM £x% POSICION NUMERO 3 £kxk 
240 REM 

260 LET A$S(3)=" ))))) " 

270 LET B$(3)=">00000 " 

280 LET C$(3)=" ))))) " 

290 REM 

300 REM kkk MOVIMIENTO DEL CIENPIES *%kk 
310 CLS 

320 REM 

330 FOR 1=22 TO 1 STEP -3 


340 FOR J=3 TO 1 STEP -1 
350 LOCATE 9, I+J 
360 PRINT A$(J) 
370 LOCATE 10,1+J 
380 FPRINT B$(J) 
390 LOCATE 11,1+3 
400 PRINT C$(J) 
410 FOR K=1 TO 100 
420 NEXT K 

430 NEXT J 

440 NEXT 1 

450 END 


Las modificaciones para MSX, COM- 
MODORE y SPECTRUM son las siguientes: 


COMMODORE 


310 PRINT "<SHIFT-HOME>" 
350 X=1+]:Y=9:GOSUB 9500 
370 Y=10:GOSUB 9500 

390 Y=11:GOSUB 9500 


MSX 


350 LOCATE 1+],9 
370 LOCATE 1+J,10 
390 LOCATE 1+J,11 


SPECTRUM 
110 DIM A$(3,7):DIM B$(3,7):DIM C$(3,7) 
350 PRINT AT I+J; 
370 PRINT AT 10,1+J; 
390 PRINT AT 11,1+J; 
Este programa, por ser algo más compli- 
cado, vamos a explicarlo línea a línea. 


< Ó O o) o O Posición 1 


1.1 


:00 O d0 Posición 2 


N 
¡ | 


Posición 3 


Fig. 7. Estas son las tres posiciones distintas que configuran el 
movimiento del ciempiés. 


Línea 110. Dimensiona tres vectores 
(variables alfanuméricas de una dimensión) 
en los que se almacenarán las distintas posi- 
ciones del ciempiés. 

Líneas 120, 130 y 140. En estas líneas 
se almacena la primera posición del movi- 
miento del ciempiés. A cada línea de la figura 
le correponde una variable. Lo hemos hecho 
de esta manera para que a la hora de realizar 
el movimiento el programa quede más sen- 
cillo. ; 

Líneas 190, 200 y 210. Se almacena la 
segunda posición del movimiento del ciem- 
piés. 

Líneas 260, 270 y 280. Se almacena la 
tercera y última posición del ciempiés. 

Línea 330. Comienza el bucle principal 
del movimiento, El incremento de dicho bucle 
está puesto a tres porque tres son los movi- 
mientos posibles. 

Línea 340. En esta línea empieza un se- 
gundo bucle que controlará cada uno de los 
tres movimientos. 

Línea 350. Colocamos el cursor en la 
primera de las líneas donde tenemos que im- 
primir la figura. 

Línea 360. Imprimimos la primera línea 
de la figura. En cada vuelta del bucle de la lí- 
nea 340, como se va variando la variable nu- 
mérica J, se imprime una primera línea de la 
figura distinta. Con esto se consigue el efecto 
de animación. 

Línea 370. Se coloca el cursor en la si- 
guiente línea para imprimir la segunda línea 
de la figura. 

Línea 380. Se imprime la segunda línea 
del ciempiés. 

Línea 390. Se coloca el cursor en la ter- 
cera línea. 

Línea 400. Y se imprime la última línea 
que configura al ciempiés. : 

Líneas 410 y 420. Se realiza un bucle 
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de retardo para hacer que el movimiento no 
sea muy rápido. 

Línea 430. Aquí se termina el segundo 
bucle, el que dice qué figura hay que impri- 
mir. 

Línea 440. Se cierra el bucle principal. 

Línea 450. Termina el programa. 

Si te fijas bien en el programa verás que 
tiene un pequeño error. Este consiste en que 
cada movimiento completo del ciempiés no se 
compone de tres, sino de cuatro movimientos. 
El orden de las figuras que realizan estos cua- 
tro movimientos son: 


Movimiento n.* 1 = Figura 1. 
Movimiento n.* 2 = Figura 2. 
Movimiento n.* 3 = Figura 3. 
Movimiento n.” 4 = Figura 2. 


Si te fijas en la figura 8 verás cuáles son 
estas cuatro posiciones. 


Posición 1 
Posición 2 


Posición 3 


Posición 4 


( 
9) 
( 
l 
e) 
] 
) 
o) 
) 
! 
o) 
l 


Fig. 8. Estas son las 4 posiciones que tendría que tener el mo- 
vimiento del ciempiés. 


¿Serías capaz de modificar este último 
programa para que realizase el movimiento de 
esta nueva forma? 

Las modificaciones que tendrías que 
hacer, línea a línea, son las siguientes: 


110 DIM A$(4):DIM B$(4): DIM C$(4) 
291 REM *" POSICION NUMERO 4 ** 
292 REM 

293 LET A$(4)=A$(2) 

294 LET B$(4)=B$(2) 

295 LET C$(4)=C$(2) 

296 REM 

330 FOR I=21 TO 1 STEP -4 

340 FOR J=4 TO 1 STEP -1 


Los usuarios del SPECTRUM tendrán 
que cambiar la línea 110 por: 


110 DIM A$(4,7):DIM B$(4,7):DIM C$(4,7) 


Para el resto de los ordenadores no 
hace falta realizar ninguna modificación. 


TRUCOS Y RUTINAS BASICAS 5 


OMO ya hemos visto mu-  mitirán imprimir el mensaje PULSA UNA TE- 
chas veces en tomos ante- CLA de una forma más elegante y atractiva de 
riores, la presentación de lo que es usual. 
los programas de cara al 
usuario, aunque éste sea 
uno mismo, es muy 'impor- 
tante. Es necesario que 3 Impresión del mensaje 'pulsa 
nuestros programas sean lo y 
más agradables posible a la vista. Con ello lo-  Ua tecla 
graremos que el usuario de dicho programa 
esté más a gusto. Nuestro primer programa imprime la 
Los programas que aparecen a conti- frase PULSA UNA TECLA, de forma que esté 
nuación son una serie de rutinas que nos per-  parpadeando continuamente. 


5000 REM KKRKLKXLRCKE KERALA U RAEE REL RELE RALA RELE RELALEEA 
5001 REM k x 
5002 REM £ <<< PULSA UNA TECLA CON PARPADEO >>> * 
5003 REM * * 
5004 REM £ VALIDA PARA MSX, AMSTRAD, COMMODORE, IBM Y SPECTRUM £ 
5005 REM ERXREARELELER AA RAAEAALA ELA ARA RAMA RARA RARA AAA RARA RA AAA 
5006 REM k £ 
5007 REM *k VARIABLES QUE HAY QUE PASARLE A LA RUTINA x 
O RE K 
5009 REM xk * 
5010 REM k X = COLUMNA DONDE SE POSICIONARA EL MENSAJE * 
5011 REM k Y = FILA DONDE SE POSICIONARA EL MENSAJE * 
5012 REM xk * 
5013 REM * LA SUBRUTINA NO RETORNA NINGUN VALOR z 
5013 REM K *£ 
5015 REM *k VARIABLES USADAS INTERNAMENTE £ 
5016 REM Ek === o * 
5017 REM k * 
5018 REM £ 1 = CONTADOR DE BUCLE * 
5019 REM * J = CONTADOR DE BUCLE * 
5020 REM x K = CONTADOR DE BUCLE *£ 
5021 REM * A$ = *PULSA UNA TECLA” £ 

REM K L = £ 


LONGITUD DE A$ 


20 


5023 REM * 


* 


5024 REM KKKKEKKLKRKEL EL AER ARELREAEA EE ARERE NECE CENAR FA REREREAEA 


5025 REM 


5026 LET A$="PULSA UNA TECLA" 


5027 LET L=LEN(A$) 
5028 FOR 1=1 TO 1 STEP O 


5029  BEEP 
5030 FOR J=1 TO 6 

5031 LOCATE Y,X 

5032 PRINT A$; 

5033 IF INKEYS<>"" THEN GOTO 5043 
5034 FOR K=1 TO 100 

5035 NEXT Kk 

5036 LOCATE Y,X 

5037 PRINT SPACES (L)y 

5038 IF INKEYS$<>"" THEN GOTO 5043 
5039 FOR K=1 TOD 100 

5040 NEXT K 

5041 NEXT J 

5042 NEXT 1 


5043 LOCATE Y,X 
5044 PRINT SPACES (L)5 
5045 RETURN 


Aunque hay ordenadores que tienen in- 
corporado en el BASIC funciones para hacer 
que parpadeen los mensajes que se imprimen, 
con esta rutina puede hacerse que la frase 
'PULSA UNA TECLA' esté parpadeando en el 
lugar que nosotros queramos de la pantalla 
hasta que el usuario pulse una tecla. 


Fig. 1. En el Spectrum podemos hacer que un mensaje parpa- 
dee, gracias al comando *FLASH”, 

El mensaje a imprimir puede ser cual- 
quier otro, mientras no sobrepase los 30 carac- 
teres. Esto es así porque si no la rutina pierde 
parte de su vistosidad y se hace más lenta: 

Este programa puede funcionar sin nin- 
gún tipo de problemas en el IBM PC y compa- 
tibles y en el AMSTRAD. Para el resto de los 
ordenadores se proponen las siguientes varia- 
ciones: 


COMMODORE 
Quitar la línea 5029. 


5031 GOSUB 9500 

5033 GET B$:IF B$<>"" THEN GOTO 5043 
5035 GOSUB 9500 

5036 FOR K=1 TO L:PRINT " "¡:¡NEXT K 
5038 GET B$:IF B$<>"" THEN GOTO 5043 
5043 GOSUB 9500 

5044 POR K=1 TO L:PRINT * "':¡NEXT K 


También hay que unir el programa con 
la rutina LOCATE PARA COMMODORE que 
se dio en el tomo 1 y que vuelve a aparecer 
en éste. 


MSX 


5031 LOCATE X,Y 
5035 LOCATE X, Y 
5043 LOCATE X,Y 


SPECTRUM 


5029 BEEP 0.3,30 

5031 PRINT AT X,Y; 
5035 PRINT AT Y,X; 
5036 PRINT OVER 1;A$; 
5043 PRINT AT Y,X; 
5044 PRINT OVER 1;A$; 


El funcionamiento de la rutina línea a lí- 
nea es el siguiente: 


Línea 5026. Se asigna a la variable al- 
fanumérica A$ el string PULSA UNA TECLA. 
Esto puede ser cambiado y asignarle otro 
mensaje distinto, como puede ser PULSA 'F' 
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TRUCOS Y RUTINAS BASICAS MN 


MUY BIEN HECHO. 
HAS CONSEGUIDO: 


001282240 


A 
PULSA UNA TECLA PARA VER RECORDS 


Y 1 4 4 4 0 y 


Fig. 2. Conel programa 1 podemos hacer que los mensajes que 
se le dan al usuario para que pulse una tecla sean más agra- 
dables. 


PARA FINALIZAR. Al ir el mensaje almacena- 
do en una variable, se puede hacer que dicha 
variable tenga su asignación en otra parte del 
programa. Con ello conseguimos que esta ru- 
tina nos sea útil para imprimir cualquier tipo 
de mensaje parpadeante en la pantalla. 

Línea 5027. Se asigna a la variable nu- 
mérica L la longitud de la cadena A$. 

Línea 5028. Comienza un bucle infinito. 
Como el incremento (STEP) es igual a cero, 
este bucle no termina nunca, ya que la varia- 
ble 1 nunca llega a tener valor dos. Todos los 
bucles FORNEXT terminan cuando la variable 
índice del bucle alcanza un valor superior al 
límite máximo requerido. Por ejemplo, si tene- 
mos el bucle: 


FOR J=1 TO 32:NEXT ] 


éste terminará cuando la variable ] tenga un 
valor de 33. 

Línea 5029. Se hace un ruidito para lla- 
mar la atención del usuario. 

Línea 5030. Comienza un bucle que 
dará seis vueltas y en el que se imprimirá el 
mensaje parpadeando. 

Línea 5031. Se coloca el cursor en la po- 
sición deseada. 

Línea 5032. Se imprime el mensaje. El 
punto y coma (;) del final le dice al ordenador 
que después de imprimir el mensaje no cam- 


4004 REM £ VALIDO PARA EE IBM, AMSTRAD, COMMODORE Y SPECTRUM 


4005 REM Y ; 


14006 REM £ VARIABLES QUE MAY QUE PASARLE A La RUTINA 


4008 REM E 


009 REM XX = COLUMNA DONDE SE POSICIONARA EL. MENSAJE 


z << PULSA UNA TECLA CON DESLIZAMIENTO 2». 
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bie de línea. Esto no está hecho así porque 
este tipo de mensajes se suelen colocar en la 
última línea de la pantalla. 

Línea 5033. Se mira si se ha pulsado al- 
guna tecla del teclado. En caso negativo se 
continúa con el programa. En el caso de que 
sí se haya pulsado, se mánda a la línea 5043, 

Líneas 5034 y 5035. Comienza un bucle 
en vacío cuya función es ralentizar el parpa- 
deo. La velocidad de éste se puede variar con 
sólo cambiar el número 100 que aparece des- 
pués de la palabra reservada TO. 

Línea 5036. Se vuelve a colocar el cur- 
sor en la posición anterior, pero esta vez para 
borrar el mensaje. 

Línea 5037. Se imprimen tantos espa- 
cios en blanco como indique la variable L. L 
nos dice el número de caracteres del mensa- 
je impreso. 

Línea 5038. Igual que la línea 5033. Se 
mira si se ha pulsado alguna tecla. 

Líneas 5039 y 5040. Otro bucle de re- 
tardo, Si se varía el tiempo de retardo del pri- 
mer bucle, también hay que variar el de éste. 

Línea 5041. Fin del segundo bucle. 

Línea 5042. Fin del primer bucle. : 

Línea 5043. Coloca el cursor al princi- 
pio el mensaje. 

Línea 5044. Y lo borra. 

Línea 5045. Vuelve al programa princi- 
pal. 


Estas tres últimas líneas sólo se ejecu- 
tan cuando el usuario ha pulsado alguna tecla. 
Su función es borrar el mensaje PULSA UNA 
TECLA para que no moleste al seguir ejecu- 
tándose el programa. 

Como pueden apreciar los usuarios del 
SPECTRUM, en la línea 5036 aparece lo si- 
guiente: 


5036 PRINT OVER 1;A$; 


con esto se consigue que el mensaje que está 
almacenado en A$ se borre de la pantalla. 


2000 REN RErRrnacrnererasensenara contes cenencencensenicnacesonss 


E E 


4010 REM x 

4011 REM x* 

4012 REM * LA SUBRUTINA NO RETORNA NINGUN VALOR 
4013 REM Xx 

4014 REM *£ VARIABLES USADAS INTERNAMENTE 
GOL REM e a 
4016 REM xk 

4017 REM * 1 = CONTADOR DE BUCLE 

4018 REM * J = CONTADOR DE BUCLE 

4019 REM * K = CONTADOR DE BUCLE 

4020 REM £ A$ = ”PULSA UNA TECLA” 

4021 REM *X L = LONGITUD DE A$ 

4022 Xx 


4025 LET A$="PULSA UNA TECLA” 
4026 LET L=LEN(A$) 


Y = FILA DONDE SE POSICIONARA EL MENSAJE 


4027 LET AS$=SPACES(L)+A$+SPACES (L) 


4028 LOCATE Y-1,X-1 
4029 FOR I=1 TO L+2 
PRINT CHR$(177)3 
4031 NEXT 1 

4032 LOCATE Y,X-1 


E E E 


REM 
4023 REM EREXRRRARARA AAA AN ARAARERERE RA RARERA RA MAREA REA AAA 
REM 


4033 PRINT CHR$(177)3 SPACES (1); CHR$ (177) 


4034 LOCATE Y+1,X-1 

4035 FOR I=1 TO L+2 
PRINT CHR$(177)3 
4037 NEXT 1 

4038 FOR 1=1 TO 1 STEP O 


4039 FOR J=1 TO 2£L+1 

4040 LOCATE Y,X 

4041 PRINT MID$(A$,J,L>) 

4042 IF INKEY$<>"" THEN 'GOTO 4048 

4043 FOR K=1 TO 50 

4044 NEXT K 

4045 IF J=L+1 THEN FOR K=1 TO 700:¿NEXT K 
4046 NEXT J 

4047 NEXT 1 

4048 RETURN 


Fig. 3. Con el programa 2 el mensaje aparece dentro de la caja. 


En el SPECTRUM, la función OVER nos 
sirve para imprimir en pantalla utilizando la 
operación XOR. 

Si quisiésemos que, en vez de pulsar 
cualquier tecla se pulse una en especial, como 
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la letra F, habría que cambiar las siguientes 
dos líneas: 


5033 IF INKEY$="F" THEN GOTO 5043 
5038 IF INKEY$="F" THEN GOTO 5043 


para que funcione. 

El programa que vamos a ver a conti- 
nuación tiene el mismo fin que el anterior. En 
este caso el mensaje va a aparecer dentro de 
una caja que nosotros dibujaremos en la pan- 
talla. 

Este programa funciona perfectamente 
en los ordenadores IBM PC y compátibles. Las 
líneas que hay que variar para que funcione 
en los demás ordenadores son las que se dan 
a continuación. 


TRUCOS Y RUTINAS BASICAS ME 


COMMODORE 


4027 FOR I=1 TO L:A$=" "+A$+" "¡NEXT I 
4028 Y=Y-1:X=X-1:GOSUB 9500:Y=Y+1 
4030 PRINT CHR$(102); 

4032 GOSUB 9500 


4033 PRINT CHR$(102);:FOR l=1 TO L:PRINT 


" :NEXT I: PRINT CHR$(102) 

4034 Y=Y+1:GOSUB 9500:Y=Y-1:X=X+1 
4036 PRINT CHR$(102); 

4040 GOSUB 9500 

4042 GET B$:IF B$<>"" THEN GOTO 4048 


Como siempre, hay que unir este pro- 
grama a la rutina LOCATE PARA COMMODO- 
RE que se dio en el primer tomo y que en éste 
volvemos a reproducir. 


MSX 


4028 LOCATE X-1,Y-1 

4030 PRINT CHR$(207); 

4032 LOCATE X-1,Y 

4033 PRINT CHR$(207); SPACE$(L)+CHR$(207) 
4034 LOCATE X-1,Y+1 

4036 PRINT CHR$(207); 

4040 LOCATE X,Y 


SPECTRUM 


4027 FOR I=1 TO L:LET A$=" '+A$+" "¡NEXT 1 
4028 PRINT AT Y-1,X-1; 

4030 PRINT CHR$(143); 

4032 PRINT AT Y,X-1; 

4033 PRINT CHR$(143);:FOR I=1 TO 
L:PRINT" "¡NEXT I: PRINT CHR$(143) 

4034 PRINT AT Y+1,X-1; 

4036 PRINT CHR$(143); 

4040 PRINT AT Y,X; 

4041 PRINT A$( TO J+L) 


AMSTRAD 


Sólo hay que hacer unas pequeñas sus- 
tituciones. En todas las líneas donde aparezca: 


CHR$(177) 
hay que poner: 
CHR$(207) 


El funcionamiento del programa es muy 
sencillo, aunque es un poco más complejo que 
el que hemos visto anteriormente. Lo que hace 
este programa línea a línea es lo siguiente: 


Línea 4025. Asigna a la variable alfanu- 
mérica Af el string PULSA UNA TECLA. Este 
mensaje puede cambiarse por cualquier otro, 
como ya vimos anteriormente. 
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Línea 4026. La variable numérica L al- 
macenará la longitud de A$ en caracteres. 

Línea 4027. Se concatena A$ con una 
serie de blancos tanto por la derecha como 
por la izquierda, de forma que el mensaje que- 
de justamente en el centro de la variable. El 
número de blancos que se le suman por la de- 
recha es igual a los que se le suman por la de- 
recha e igual a la longitud de Af). 

Línea 4028. Se coloca el cursor una lí- 
nea más arriba y un carácter más a la izquier- 
da de donde se imprimirá el mensaje. 

Línea 4029. Comienza un bucle dentro 
del cual se dibujará el lado superior de la caja 
en la que aparecerá el mensaje. Dicha caja tie- 
ne un tamaño de L+2X3. Esto es: tiene dos ca- 
racteres más de anchura que el mensaje y tie- 
ne tres caracteres de altura, 

Línea 4030. Se imprime la primera lí- 
nea de la caja carácter a carácter. 

Línea 4031. Aquí termina el bucle. 

Línea 4032. Se coloca el cursor en la lí- 
nea siguiente a la anterior, pero en la misma 
columna. 

Línea 4033. Se imprimen los dos lados 
laterales (derecho e izquierdo) de la caja. El 
espacio entre ellos es igual a L. 

Línea 4034. Se coloca el cursor una lí- 
nea más abajo de donde estaba y se sigue con- 
servando la misma columna. 

Línea 4035. Este bucle es igual al que 
aparece entre las líneas 4029 y 4031. Su fun- 
ción es dibujar el lado inferior de la caja. 

Línea 4036. Se imprime dicho lado ca- 
rácter a carácter. 


Línea 4037. Se termina el bucle. 


Hasta ahora lo que ha hecho el progra- 
ma ha sido inicializarse. Hemos asignado a A$ 
y a L los valores que nos interesaban y hemos 
dibujado una caja en la que se imprimirá el 
mensaje de pulsar una tecla. A partir de este 
momento el programa va a imprimir dicho 
mensaje y a comprobar si se pulsa alguna te- 
cla. 


Línea 4038. Comienza un bucle gracias 
al cual el mensaje irá apareciendo por la de- 
recha de la caja, se desplazará hacia la iz- 
quierda, estará un rato a la vista del usuario y 
volverá a moverse hacia la izquierda hasta de- 
saparecer. En esta línea se comienza con el 
bucle infinito que ya vimos en el programa an- 
terior, y cuya función es hacer que hasta que 
no se pulse una tecla el programa no termine. 

Línea 4039. Aquí comienza el bucle que 


se encargará de imprimir el mensaje de iz- 
quierda a derecha, de forma que parezca que 
se va desplazando. 

Línea 4040. Se coloca el cursor en la po- 
sición que le hayamos indicado. 

Línea 4041. Se imprimen tiras de L ca- 
racteres de A$ empezando por el carácter nú- 
mero J. En la primera vuelta del bucle se im- 
primirán los caracteres que van desde el pri- 
mero hasta el número L. En la segunda desde 
el segundo hasta L+1. En la tercera desde el 
tercero hasta L+2, y así sucesivamente. 

Línea 4042. Se pregunta si se ha pulsa- 
do una tecla. En caso afirmativo, el programa 
se termina y se manda su control a la línea 
4048, En caso contrario, se continúa con el pro- 
grama. 

Líneas 4043 y 4044. Se realiza un bucle 
en vacío, como tiempo de retardo, antes de im- 
primir la siguiente letra del mensaje. El valor 
de este bucle puede ser variado para que el 
mensaje aparezca más de prisa o más despa- 
cio, según nosotros queramos. 


Línea 4045. Se pregunta si todo el men- 
saje está dentro de la caja. En caso afirmativo 
se le mantiene un rato en la misma posición 
para más tarde continuar con el bucle. Des- 
pués de pasar por esta línea el mensaje irá de- 
sapareciendo por la izquierda de la caja. 

Línea 4046. Aquí termina el segundo 
bucle. 


Línea 4047. Aquí termina el primer bu- 
cle, El bucle infinito. 


Línea 4048. Se devuelve el control al 
programa principal. 


Si os fijáis en el funcionamiento del pro- 
grama, podréis ver que es muy parecido a uno 
de los programas de impresión de mensajes 
que vimos hace algunas semanas. Os recuer- 
do esto para que veáis que se pueden hacer 
muchísimas cosas con las rutuinas que aquí va- 
mos proponiendo tomo a tomo. 

Otra de las maneras que tenemos de 
imprimir el mensaje PULSA UNA TECLA lo po- 
demos ver en el programa 3. 


4000 REM EXEKKERKEE ERA KEXERERE ALA RE RELE CEE RXARE RE ARA ERECELIRERA 


4010 REM x 
4020 REM *£ 
4030 REM * 


<<< PULSA UNA TECLA CON CURSOR PARPADEANTE >>> * 


* 


4040 REM k VALIDO PARA MSX, IBM, AMSTRAD, COMMODORE Y SPECTRUM £ 
OSO REM IRA ISORA 


4060 REM k 
4070 REM k VARIABLES USADAS POR LA RUTINA 

4080 REM X "=== id 

4090 REM *£ 

4100 REM k 1 = CONTADOR DE BUCLE 

4110 REM xk J = CONTADOR DE BUCLE 

4120 REM k A$ = *PULSA UNA TECLA” 

4130 REM * L '= LONGITUD DE AS 

4190 REM £ 

4150 REM *k LA RUTINA NO RETORNA NINGUN VALOR 

4160 REM £ 

4170 REM * VARIABLES QUE HAY QUE PASARLE A LA RUTINA 
ALBO REM E 

4190 REM k 

4200 REM % X = COLUMNA DONDE SE POSICIONARA EL MENSAJE 
4210 REM * Y = FILA DONDE SE POSICIONARA EL MENSAJE 
4220 REM £ 


A A 


9230 REM RIOR AAA AAA AAA 


5000 LET A$="PULSA UNA TECLA" 
5001 LET L=LEN(AS) 

5002 LOCATE Y,X 

5003 PRINT AS; 

5004 FOR I=1 TO 1 STEP O 


5005 LOCATE Y, X+L+2 
5006 PRINT CHR$(177); 
5007 IF” INKEYS$<>"" THEN GOTO 5016 
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TRUCOS Y RUTINAS BASICAS DNI 


5008 FOR J=1 TO 100 

5009 NEXT I 

5010 LOCATE Y,X+L+2 

5011. PRINT" "y 

5012 IF INKEYS<>"" THEN GOTO 5016 
5013 FOR J=1 TD 100 

5014 — NEXT J 

5015 NEXT 1 


5016 LOCATE Y,X 
5017 PRINT SPACES (L+3)3 
5018 RETURN 


Este programa funciona perfectamente 
en los ordenadores IBM PC y compatibles. 
Para el resto de los ordenadores hay que in- 
troducir los siguientes cambios: 


COMMODORE 


5002 GOSUB 9500 

5005 LET X=X+L+2:GOSUB 9500 

5006 PRINT CHR$(102); ; 

5007 GET B$:IF B$<>" THEN GOTO 5016 
5010 GOSUB 9500:X=X-L-2 

5012 GET B$:IF<>"" THEN GOTO 5016 
5016 GOSUB 9500 

5017 FOR I=1 TO L+3:PRINT" "¡:¡NEXT 1 


Es necesario unir este programa con la 
rutina LOCATE PARA COMMODORE que apa- 
rece más adelante. 


MSX 


5002 LOCATE X, Y 
5005 LOCATE X+L+2, Y 
5006 PRINT CHR$(207); 
5010 LOCATE X+L+2, Y 
5016 LOCATE X,Y 


AMSTRAD 
5006 PRINT CHR$(207); 
SPECTRUM 


5002 PRINT AT Y,X; 

5005 PRINT AT Y ,X+L+2; 

5006 PRINT CHR$(149); 

5010 PRINT AT Y, X+L+2 

5016 PRINT AT YX; 

5017 FOR I=1 TO L+3:PRINT" "':¡NEXT 1 


El funcionamiento del programa línea a 
línea es el siguiente: 


Línea 5000. Se asigna a la variable A$ 
el string PULSA UNA TECLA. 

Línea 5001. Se asigna a la variable L el 
número de caracteres que se almacenan en la 
variable A$. 
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hs 
PULSA UNA TECLA MM - 
É Á 


Fig. 4. Con el programa 3 podemos ver cómo el cursor parpa- 
dea al final de la frase. 


Línea 5002. Aquí colocamos el cursor 
en la posición que le hemos indicado a la ru- 
tina al darle valores a las variables X e Y. 

Línea 5003. Se imprime el mensaje. El 
punto y coma (;) del final de la línea sirve para 
que si el mensaje se coloca en la última línea, 
la pantalla no haga ún scroll. 

Línea 5004. En esta línea comienza un 
bucle dentro del cual se va a encender y apa- 
gar un cursor que se encuentra a la derecha 
del mensaje. Antes de cada parpadeo se pre- 
guntará si se ha pulsado alguna tecla. 


Línea 5005. Se coloca el cursor dos lu- 
gares más a la derecha del final del mensaje. 

Línea 5006. Se imprime un cuadrado de 
color que hará las funciones de un cursor visi- 
ble, 

Línea 5007. Se pregunta si se ha pulsa- 
do alguna tecla. En caso afirmativo, se da el 
control del programa a la línea 5016. En caso 
contrario, el programa continúa como hasta 
ahora. 

Líneas 5008 y 5009. Se realiza un bucle 
en vacío que sirve para retardar el parpadeo 
del cursor. 

Línea 5010. Se vuelve a colocar el cur- 
sor invisible dos lugares más a la derecha del 
final del mensaje. 

Línea 5011. Se imprime un espacio en 
blanco para borrar el cuadradito que hacía de 
cursor. Esta línea, conjugada con la línea nú- 
mero 5006 que imprime un cuadradito, hace 
que nos parezca que el cursor está parpa- 
deando. 


Línea 5012. Se vuelve a preguntar si se 
ha pulsado alguna tecla. 

Líneas 5013 y 5014. Se realiza un nue- 
vo bucle en vacío que actúa como retardo del 
parpadeo. 

Línea 5015. Termina el bucle principal. 
Este también es un bucle infinito, pues el in- 
cremento (STEP) es cero. 

Línea 5016. Se coloca el cursor de nue- 
vo al principio del mensaje. 

Línea 5017. Se borra dicho mensaje 
para que no moleste en la posterior ejecución 
del programa principal. 

Línea 5018. Se devuelve el control al 
programa principal. 


== Ejercicios resueltos 


EJERCICIO N.* 1 


Aunque este último programa lo hemos 
puesto como una rutina que se puede utilizar 
para imprimir mensajes del tipo: 


PULSA UNA TECLA 


su mejor aplicación puede encontrarse a la 
hora de hacer menús por pantalla. En los pro- 
gramas que utilizan menús suele elegirse una 
cierta opción tecleando, bien por el número 
que precede a dicha opción, bien la letra por 
la que empieza dicha opción o bien la letra 
que se encuentra al principio de dicha opción. 

Normalmente, debajo del menú se le 
suele dar al usuario un mensaje parecido al si- 
guiente: : 


POR FAVOR, 
PULSE LA OPCION QUE LE INTERESE 


con el cursor a la derecha de la frase, tal y 
como aparece en el programa 3. 

Para hacer que este último programa 
nos sirva para introducirlo en la recogida de 
datos de nuestros menús, sólo hay que reali- 
zar algunos cambios. Estos consisten en: 


x 


33899993 


Y e o 
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MENU 


1 INTRODUCIR FICHAS 
2 BORRAR FICHAS 

3 VER FICHAS 

4. MODIFICAR FICHAS 
5 IMPRIMIR FICHAS 


Fig. 8. Forma típica de un menú. 


1. Imprimir un mensaje como el visto 
anteriormente. 

2. Aceptar sólo algunas de las teclas. 
Sólo aquellas que estén reflejadas como opcio- 
nes en el menú. 

3. Sacar por pantalla algún mensaje 
de error cuando el usuario pulse alguna tecla 
no permitida. 

4. Tiene que aparecer la tecla pulsa- 
da en el lugar del cursor una vez elegida la 
opción. 

¿Serías capaz de realizar dichos cam- 
bios? 


INTRODUCIR FICHAS 
2 BORRAR FICHAS 
3 VER FICHAS 
4. MODIFICAR FICHAS 
5 IMPRIMIR. FICHAS 
5 TERMINAR 


OPCION: Jj 


ERROR. PULSE UN NUMERO DEL 1 AL 6 


Fig. 6. Si el usuario no pulsa la tecla que se le pide, aparece un 
mensaje de error. 


SOLUCION 


El programa 4 resuelve este ejercicio 
de una forma muy sencilla, ¿Se te ocurre otra? 


ERRELEAEAREREL AA ELUROA RAEE RE AEREA REA RELE ALA LARREA RAR 


* 


* <<< PETICION DE OPCION CON CURSOR PARPADEANTE >>> k 


* VALIDO PARA MSX, IBM, AMSTRAD, COMMODORE Y SPECTRUM k£ 
MOORE 


E 


* VARIABLES USADAS POR LA RUTINA x 


ES * 


4090 
4100 
4110 
4120 
4130 
4135 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
5006 
5001 
5002 
5003 
5004 
5005 
5006 
3007 
5008 
5009 
so1o 
5011 
5012 
5013 
5014 
5015 
5016 
5017 
5018 
5019 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 
5030 
5031 
5032 
5033 
5034 
5035 
5036 
5037 
5038 
5039 
5040 
5041 


CONTADOR DE BUCLE 

CONTADOR DE BUCLE 

>PULSA UNA TECLA” 

LONGITUD DE A$ 

VARIABLE QUE RECOGE, LA ULTIMA TECLA PULSADA 


D 
* 
'úo.....4..4 


x 
* 
*3 
* 
x 
x 
x 


* LA RUTINA NO RETORNA NINGUN VALOR 


KX VARIABLES QUE HAY QUE PASARLE A LA RUTINA 

+ e e e e 2 2 2 2 o 

* 

A X = COLUMNA DONDE SE POSICIONARA EL MENSAJE 
* Y = FILA DONDE SE POSICIONARA EL MENSAJE 

x 

EREREREAEE KE RA RELE NE RAE RENE LERE RE AE KE RERE RE RALA AAA LEAA 


$ A E A E CACA CEC 


88949999 9989989 
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A$=" INTRODUZCA OPCION" 
LET L=LEN(A$) 
LOCATE Y,X 
PRINT A$) 
FOR I=1 TO 1 STEP O 
LOCATE Y,X+L+2 
PRINT CHR$(177)3 
LET B$=INKEYS$ 
IF B$<>"" AND (B$<"1" OR B$>"7") THEN GOSUB 5023 
IF B$<>"" THEN GOSUB 5034:GOTO 5020 
FOR J=1 TO 100 
NEXT J 
LOCATE Y,X+L+2 
PRINT * "3 
LET B$=INKEYS 
IF B$<>"" AND (B$<"1" OR B$>"7") THEN GOSUB 5023 
IF B$<>"" THEN GOSUB 5034: 60TOD 5020 
FOR J=1 TO 100 
NEXT J 
NEXT 1 
LOCATE Y,X 
PRINT SPACES (L+3)5 
RETURN 
REM 
REM kkk ERROR k%£% 
REM 
LOCATE Y, X+L+2 
PRINT "ERROR ..." 


"FOR J=1 TO 500 


NEXT J 
LOCATE Y, X+L+2 

PRINT " . 

LET B$="" 

RETURN 

REM 

REM kk IMPRESION DE LA OPCION ELEGIDA £%k 
REM 

LOCATE Y, X+L+2 

PRINT Bs; 

FOR J=1 TO 500 

NEXT J 

RETURN 
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Las modificaciones a realizar para los 
ordenadores MSX, COMMODORE y SPEC- 
TRUM son muy parecidas a las realizadas en 
el programa 3, pero, como los números de lí- 
nea están cambiados, vamos a ponerlas todas 
de nuevo, 


COMMODORE 


5002 GOSUB 9500 

5005 X=X+L+2:GOSUB 9800 
5006 PRINT CHR$(102); 
5007 GET B$ 

5012 GOSUB 9500 

5101 GET B$ 

5019 X=X-L-2:NEXT I 

5020 GOSUB 9500 

5021 FOR J=1 TO L+3:PRINT" "NEXT J 
5026 GOSUB 9500 

5030 GOSUB 9500 

5037 GOSUB 9500 


Como en todos los programas de este li- 
bro, hay que unir esta rutina a la que se en- 
cuentra un poco más adelante y que se llama 
RUTINA LOCATE PARA COMMODORE. 


MSX 


5002 LOCATE X, Y 
5005 LOCATE X+L+2, Y 
5012 LOCATE X+L+2, Y 
5020 LOCATE X, Y 
5026 LOCATE X+L+2, Y 


5030 LOCATE X+L+2,Y 
5037 LOCATE X+L+2, Y 


SPECTRUM 


5002 PRINT AT YX; 

5005 PRINT AT Y X+L+2; 

5006 PRINT CHR$(143); 

5012 PRINT AT Y X+L+2; 

5020 PRINT AT YX; 

5021 FOR J=1 TO L+3:PRINT" "¿NEXT ] 
5026 PRINT AT Y X+L+2; 

5030 PRINT AT Y ,X-+L+2; 

5037 PRINT AT Y X+L+2; 


Como siempre, el funcionamiento del pro- 
grama os lo dejo para vosotros. Con ello con- 
seguiréis más velocidad a la hora de progra- 
mar y se os ocurrirán otras soluciones mejores. 


El] Rutina para simular la sentencia 
LOCATE en el COMMODORE 


Aunque esta rutina apareció en el pri- 
mer tomo de esta colección, lo volvemos a in- 
cluir en éste para aquellas personas que no 
tengan todavía el tomo primero y para que 
puedan utilizar todos los programas que aquí 
se irán dando. 


9950 REM KEXKKEELERLERER ERE LEA KKEXERA KK ER RAGE KE E EA EKEKELEE 


9951 REM Xx 
99352 REM * 
9953 REM k 


RUTINA *LOCATE” 


* 
PARA COMMODORE * 
* 


773 REM RERERAREREL RARE REN ENE REA OO AAA 
9935 REM * VARIABLES QUE SON NECESARIAS PASARLE A LA RUTINA k 


9956 REM Y 


99379 REM * 


9960 REM %* LA RUTINA NO DEVUELVE VALORES 


9961 REM x 


9962 REM * VARIABLES QUE SE USAN INTERNAMENTE 


9963 REM $ 


9964 REM £ CC = CONTADOR DE BUCLES 
9765 REM ERERELRERELALLRER ERRE RARA RARA 


9966 REM 

9967 PRINT "<HOME>"3 
9968 FOR CC=1 TO X 
979569 
9970 NEXT CC 

9971 FOR CC=1 TO Y 
9972 
9973 NEXT CC 
9974 RETURN 


PRINT "<CURSOR ABAJO>"y 


A e 


PRINT "<CURSOR DERECHA>"y 
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€ o 
9957 REM * X= COLUMNA DONDE NOS QUEREMOS POSICIONAR 
9958 REM X Y = FILA DONDE NOS QUEREMOS POSICIONAR 


* 
* 
* 
x 
* 
* 
k 
* 
* 
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EE Conexiones mediante sensores ópticos 


E los dispositivos que pue- 
den conectarse a los orde- 
nadores personales hay un 
conjunto de ellos que utili- 
zan dispositivos sensibles a 
la luz. Vamos a describir al- 
gunos y también aplicacio- 
nes interesantes y de fácil 
realización. Empezaremos describiendo los 
sensores de señales luminosas y su forma de 
utilización; después se mostrarán aplicaciones 
inmediatas de algunos de ellos con posibilidad 
de conexión a los ordenadores para los cuales 
se han descrito los conectores de expansión. 


ll Sensores de luz 


Los componentes sensibles a la luz y de 
fácil adquisición en el mercado son: 


— Resistencias variables con la luz 
(LDR = Light Dependent Resistor). Son muy 
populares y económicas. Son robustas, a la vez 
que muy sensibles, aunque presentan una res- 
puesta característica no lineal y dependiente 
de la cantidad de luz recibida. Sin embargo, 
para variaciones pequeñas de luz tienen res- 
puesta casi lineal. 

— Fotodiodos. Los fotones que inciden 
en ellos generan pares electrón-hueco, que 
origina una corriente proporcional a la luz in- 
cidente. Se emplean polarizados inversa- 
mente, 

— Diodos PIN. Poseen una capa de se- 
miconductor de bajo dopado, siendo de res- 
puesta muy rápida. 


— Fototransistores. Se montan con un 
fotodiodo que actúa sobre la base de un tran- 
sistor. Poseen una sensibilidad mucho mayor 
que los fotodiodos, con un tiempo de respues- 
ta también mayor. 


— Fotomultiplicadores. Realizados me- 
diante superficies con sales de fósforo a alta 
tensión, generan corrientes a partir de luz con 
un elevado factor de ganancia, pues por cada 
electrón generado en la primera superficie se 
generan muchos en cada una de las siguien- 
tes. Se emplean solamente cuando la luz reci- 
bida es de muy poca intensidad como es el 
caso de los telescopios o microdensitómetros. 
Como son también sensibles a fotones en fre- 
cuencias no visibles, se emplean para detec- 
tar radiaciones. 

— CCDs. Charge Coupled Devices 
Circuitos Acoplados por Carga, poseen un fo- 
todiodo que carga un condensador. Para su 
lectura se transfiere el contenido de cada con- 
densador al más próximo, mediante pulsos. 
Según su organización geométrica, pueden 
distinguirse: puntuales, lineales, matriciales o 
circulares. 


— Células fotovoltaicas. Generan 
corriente a partir de la producción de los pa- 
res electrón hueco, a partir de los fotones re- 
cibidos. Convierten solamente un 10 %, aproxi- 
madamente, de la energía recibida en 
corriente eléctrica, 


El circuito mediante el cual se convier- 
te la señal luminosa en señal eléctrica es muy 
similar en todos ellos, dependiendo los valo- 
res de las resistencias y tensiones del rango 


- de luz que sea necesario medir. 
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En el dibujo se muestra el esquema de 


y 


-I, , NIVEL ILUMINACION 


LDROS5 BPW21| y 
= 
[e] 
Tr ” A 
E 
ESQUEMA DE OPERACION CURVA CARACTERISTICA 
Fig. 1. Fotodiodo. Fig. 2. Circuitos típicos para sensores de luz, 


operación del fotodiodo al ser iluminada su 
unión PN por la luz. La curva característica 
muestra la corriente en el fotodiodo para de- 
terminados niveles de iluminación, al variar la 
tensión aplicada a la unión. En condiciones de 
trabajo normales, la tensión observada entre 
los bornes del diodo seguiría una recta como 
la mostrada, pasando por los puntos corres- 
pondientes a la tensión de alimentación en el 
eje horizontal y en la corriente límite, Va/R, 
en el eje vertical. Es decir, para el esquema 
de la figura, a mayor nivel de iluminación 
correspondería menor tensión de salida. 

La utilización de la señal depende fun- 
damentalmente de la aplicación, pues en al- 
gunos casos es suficiente con determinar si la 
luz está dentro de un valor especificado, mien- 
tras en otros será necesario el empleo de al- 
gún tipo de conversor para conocer la magni- 
tud dentro de márgenes precisos. Es conve- 
niente experimentar con la solución que se 
adopte, variando la resistencia de carga para 
encontrar el punto de trabajo conveniente. 
También es recomendable que el punto de 
trabajo se encuentre, aproximadamente, en el 
valor medio de la tensión de alimentación si 
se desea respuesta lineal. Los circuitos indica- 
dos no son lineales, presentando su máxima 
sensibilidad si el punto de trabajo es el indi- 
cado. La calibración será necesaria hacerla 
por comparación con algún fotómetro calibra- 
do, si se desean medidas absolutas, pues la 
dispersión entre los componentes no permite 
garantizar unos valores seguros "a priori”. 

Para el funcionamiento correcto de mu- 
chos de los sensores ópticos deberá disponer- 
se de algún filtro de vidrio para eliminar la in- 
fluencia de los rayos infrarrojos a los que son 
muy sensibles la mayoría de los fotodiodos y 
fototransistores. 

Los parámetros a tener en cuenta para 
la selección del dispositivo adecuado son: sen- 
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sibilidad, respuesta espectral, ángulo de vi- 
sión, estabilidad con la temperatura, límites 
admisibles de tensión de trabajo. 


El Acción de dispositivos desde la 
pantalla del ordenador 


Con los elementos sensores a la luz que 
hemos descrito, si los colocamos delante de la 
pantalla de nuestro ordenador personal pode- 
mos comunicar órdenes mediante la simple 
activación de una o varias posiciones en la 
pantalla. Para ello hemos de seguir los siguien- 
tes pasos: 


— Deducir mediante un programa sen- 
cillo todas las posiciones activas en una línea, 
por ejemplo, la inferior de la pantalla. Para ello 
ejecutaremos un programa que presente una 
secuencia de caracteres como «* en la línea 
deseada. 

— Seleccionar el número de señales 
que necesitamos para actuar el equipo exte- 
rior. 

— Seleccionar la separación. Uno de 
cada dos puede ser lo apropiado, depende del 
tamaño del sensor. 

— Seleccionar el elemento fotosensi- 
ble. Un fototransistor, por ejemplo. 

— Montar un pequeño armazón para 
soporte de los fototransistores y colocarlo so- 
bre la pantalla en la línea seleccionada, pe- 
gándolo con un adhesivo, 

— Añadir los amplificadores para cada 
fototransistor, hasta conseguir niveles adecua- 
dos. Los amplificadores deberán poseer histé- 
resis, pues la pantalla presenta la iluminación 
de forma parpadeante y aunque posea algo de 
persistencia, conviene garantizar una conmu- 
tación segura. 
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— Sacar las señales a un conector o ca- 
ble hasta el equipo a actuar. 


El control de equipos mediante . este 
procedimiento es lento pero seguro, pues no 
requiere introducirse en las interioridades de 
la máquina y, además, puede servir para cual- 
quier ordenador. 


a 
CONECTOR 
F 


OTOTRANSISTORES 


Fig. 3. Disposición de los fototransistores sobre la pantalla. 


El circuito de la figura permite calibrar 
la intensidad luminosa necesaria para la acti- 
vación, Al iluminarse el fototransistor pasará 
corriente por él, por lo que habrá tensión alta 
a la entrada del inversor con histéresis. Para 
reducir el efecto de parpadeo de la pantalla 
se incluye el condensador en paralelo con la 
entrada. La resistencia variable deberá ser 
ajustada para cada tipo de fototransistor y de 
pantalla. Para cada elemento sensible debere- 
mos utilizar un circuito como el de la figura, 
actuando sobre el circuito de control apropia- 
do. El esquema con el diodo LED es solamen- 
te para prueba de funcionamiento. 


O +5V 


Fig. 4. Circuito para los fototransistores. 


El siguiente programa de test sirve 
para verificación de los sensores para activa- 
ción desde la pantalla: 


10 REM PROGRAMA DE ACTIVACION DE 
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DISPOSITIVOS A TRAVES DE LA PANTALLA 
20 REM PRODUCE UNA SECUENCIA DE 
UNOS Y CEROS PARA TEST 

30 FOR I=1 TO 1000 

40 LOCATE 25,40 

50 PRINT *"; 

60 LOCATE 25,40 

70 PRINT* '; 

80 NEXT 1 

90 END 


E Sensor de luz ambiente 


Con un sencillo circuito basado en un 
sensor luminoso podemos construir un detec- 
tor de nivel de luz, para poder actuar en con- 
secuencia a través del ordenador. Mediante 
una fotocélula captamos el nivel de luz en el 
punto o puntos deseados. Una resistencia va- 
riable permite ajustar el nivel que debemos 
captar para activar un programa o actuar so- 
bre otro dispositivo. Por supuesto, que la ac- 
ción que desencadene la captación de nivel 
de luz podría ser una situación de alarma, 
como, por ejemplo, la aparición de llama. 

Si disponemos de varios sensores, cali- 
brados a diferentes niveles, podemos realizar 
un control proporcional. Si el control fuera ne- 
cesario hacerlo con mayor resolución, lo apro- 
piado sería disponer un conversor analógico- 
digital que suministrara el nivel de la señal de 
manera digital adaptada al margen de medi- 
da adecuado. 


Fig. 5. Circuito de sensor de luz ambiente. 


El programa de tratamiento de la lectu- 
ra debería tener en cuenta la posibilidad de 
activación esporádica por ruido, por lo que 
convendrá filtrar la señal digital suministrada 
y no tomarla en consideración si no ha pasado 
un determinado período con la señal a nivel 
estable. El circuito de generación de la señal 
puede llevar además histéresis para reducir 


en lo posible el disparo si las condiciones de 
entrada fluctúan lentamente entre los valores 
del punto programado. En el circuito mostra- 
do se ha aislado la comunicación al ordenador 
mediante un relé actuado mediante el circui- 
to de amplificación del sensor. 


Ml Barreras ópticas 


Con los elementos descritos podemos 
realizar barreras ópticas, que pueden utilizar- 
se en muy diferentes aplicaciones. La señal 
generada en los sensores ópticos, una vez 
adaptada a los niveles de las entradas del or- 
denador, pueden conectarse a la tarjeta de 
ampliación de puertos en cualquiera de los 
puertos de entrada. Veamos algunos ejemplos 
concretos: 


ll Barrera de transmisión 


Mediante una fuente luminosa, que pue- 
_de ser no visible si se utilizan LEDS de in- 
frarrojos, se activa un fototransistor. Si se pro- 
duce una interrupción del rayo luminoso, por 
el paso de un objeto opaco, la salida del sen- 
sor producirá una variación de nivel. Según 
sea la separación entre la fuente luminosa y el 
sensor, puede ser necesario utilizar algún me- 
dio óptico, como, por ejemplo, un par de len- 
tes, para colimar y concentrar los rayos sobre 
el fototransistor. El sistema óptico será nece- 
sario diseñarlo para cada aplicación específi- 
ca. Para que los rayos salgan paralelos debe- 
remos colocar la fuente emisora de luz en el 
foco de la lente y lo mismo del lado receptor. 
Para que el sistema sólo se active por la luz de 
la barrera deberemos montar el receptor en 
un tubo apropiado, de forma solidaria con la 
lente. 


+5 3 

S 10 K 5 

300 Q E 

Len(y) 2, ==) z- z 
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1K E 

E 


Fig. 6. Esquema de barrera de transmisión. 


Este tipo de barreras son aplicables a 
la detección de paso de piezas o incluso de 
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personas, para medir tiempos entre pasos, por 
ejemplo. La fuente luminosa puede ser un dio- 
do LED o una lámpara de incandescencia, se- 
gún la distancia y las condiciones ambientales. 


a Barrera de reflexión 


Para simplificar el montaje de la barre- 
ra y eliminar los cables necesarios para la 
fuente luminosa, puede utilizarse un espejo u 
otra superficie reflectante, que retorne el rayo 
luminoso a un punto próximo, donde se colo- 
cará el fototransistor del receptor. 


ESPEJO 


T> 


LED O LAMPARA 


"Z> Q FOTOTRANSISTOR 


Fig. 7. Esquema de barrera de reflexión. 


Para distancias cortas de detección de 
paso existen parejas de emisor-receptor en un 
solo bloque. Este tipo de barreras son de apli- 
cación en detección de piezas o de objetos 
que pasan a distancia fija, como podría ser el 
caso de vagones de ferrocarril. 


El] Marco para pantalla sensible al tacto 


En muchas ocasiones es interesante dis- 
poner de un medio de comunicación con el or- 
denador que permita realizar directamente la 
selección de las opciones sin más que tocar la 
pantalla, sin ningún instrumento adicional. Me- 
diante una barrera de rayos infrarrojos puede 
realizarse este proyecto. 

El principio físico consiste simplemente 
en la creación de franjas de luz infrarroja me- 
diante diodos LEDs y en su captación con fo- 
todiodos o fototransistores. Existe gran varie- 
dad de dispositivos que permiten realizar es- 
tas barreras y en el diagrama se muestran los 
circuitos necesarios. 

Un aspecto importante a considerar es 
la resolución necesaria para la aplicación. 
Para la selección de las opciones de un menú 
será suficiente con poder presentar como zo- 
nas activas el número máximo de opciones po- 
sibles, que, en general, no pasarán de 20. Pero 
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si se desea poder ofrecer las zonas activas en 
cualquier parte de la pantalla, la resolución 
efectiva debe ser mayor. Una red de 8 x 8 pre- 
senta un número más que suficiente de zonas 
activas de selección. Los equipos comerciales 
actualmente disponibles presentan resolucio- 
nes hasta de 30 x 40. 


(JFOTOTRANSISTORES 


Fig. 8. Disposición de los elementos en el marco. 


El programa deberá explorar cada uno 
de los fototransistores mientras mantiene la 
iluminación en el LED opuesto. Si detecta que 
el nivel corresponde a barrera cortada, lo ano- 
tará en la tabla de cruces. Si no, anotará un 0. 
Al terminar el barrido, un pequeño análisis 
permitirá detectar el punto donde se encuen- 
tra el obstáculo y, por tanto, las coordenadas 
del punto seleccionado. La exploración del 
LED emisor y del fototransistor receptor pue- 
de efectuarse de manera simultánea, o bien 
pueden alimentarse continuamente todos los 
LEDs y explorar solamente los fototransistores, 
El segundo procedimiento tiene la ventaja de 
la simplicidad, pero puede ocurrir que, por 
error de alineamiento, un fototransistor reciba 
iluminación de un LED próximo, con lo que no 
se detectará la ruptura de la barrera. El pri- 
mer procedimiento requiere algo más de cir- 
cuitería, pero no presenta problema de alinea- 
miento, incluso en el caso de poner los LEDs 
muy juntos. Tanto los LEDs como los fotodetec- 
tores se fabrican con una lente que les hace 
muy direccionales, presentando ángulos de 
visión activa de 5 a 10 grados. 

Los circuitos de alimentación de los 
LEDs y de recepción con fototransistores son 
los típicos para las barreras ópticas que hemos 
visto. Para los componentes con lente incorpo- 
rada se muestran en la figura. 

Los marcos sensibles al tacto suelen co- 
nectarse como dispositivo asíncrono serie, ge- 
nerando el adaptador de soporte una secuen- 
cia de señales correspondiente a las coorde- 
nadas de la celda activada. 
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Fig. 9. Circuitos de emisión y recepción. 


Es necesario mencionar algunos de los 
problemas que presenta un sistema de comu- 
nicación con la máquina a través del contacto 
sobre la pantalla: puede resultar incómodo te- 
ner que levantar los brazos continuamente 
para seleccionar la opción, la luz ambiental 
puede ocasionar activaciones erróneas, el pol- 
vo puede obstruir los orificios de paso de luz 
y además la pantalla acaba siempre con las 
marcas de los dedos. Sin embargo, puede te- 
ner futuro en aplicaciones donde un mismo 
usuario utiliza con poca frecuencia el sistema 
o donde pueda protegerse de la suciedad o el 
deterioro voluntario. 


2 Ejemplo práctico de aplicación 


Para desarrollar el esquema presenta- 
do necesitamos las siguientes unidades fun- 
cionales a construir: 


— Marco de soporte adaptado a la pan- 
talla. La superficie de la pantalla suele ser cur- 
vada, por lo que se adaptará el soporte para 
que los rayos de los LEDs sobrepasen el pun- 
to más alto. 

— 16 parejas de LEDs y fototransisto- 
res. 

— Cuatro tiras de soporte de LEDs y fo- 
totransistores. 

— Tarjeta soporte de la circuitería de 
interfaz, además de la tarjeta de ampliación de 
puertos. 

— Cables de señales. 

— Conectores de unión entre unidades. 


Pueden plantearse diferentes situacio- 
nes según el número de puntos en los que se 
detecta corte de la barrera. El programa de- 
berá decidir la opción más razonable, calcu- 
lar un punto medio, por ejemplo, el centro de 


gravedad de la zona activada o dar una indi- 
cación de error para que realice una nueva se- 
lección. El programa que se muestra da como 
resultado un carácter en pantalla de los pun- 
tos activados. Este programa es aplicable al 
IBM-PC. Para adaptarlo a SPECTRUM o AMS- 
TRAD se deberán cambiar las direcciones de 
los puertos, que deberán ajustarse a las que 
produzcan la señal SELRO y SELR1, según se 
indicó en el fascículo 1. También se cambiará 
la sentencia de entrada INP por IN. Para COM- 
MODORE, además deberá sutituirse la senten- 
cia INP por el correspondiente PEEK. 


10 REM MARCO 

20 REM PROGRAMA DE LECTURA DE MAR- 
CO DE REJILLA INFRARROJOS 

30 REM PARA CUALQUIER OP CON TARJETA 
DE EXPANSION DE PUERTOS 

35 REM IBM-PC, SPECTRUM, AMSTRAD. 
COMMODORE USAR CAMBIOS 

40 REM LEE ESTADO, SI ACTIVO, LEE COOR- 
DENADAS X E Y 

50 REM LAS ENTRADAS DE X E Y DEBERAN 
ESTAR CABLEADAS 

50 REM EN LOS PUERTOS $H201 Y £:H203 DE 
LA TARJETA DE EXPANSION 

70 PUERTOX=8.H201: PUERTOY=8H203 

80 V$="12345678" 

90 CLS: KEY OFF 

100 A=INP(PUERTOX): B=INP(PUERTOY) 

110 LOCATE 24,1: PRINT HEX$(A);HEX$(B); : 
REM MUESTRA ESTADO 

120 IF (A<>255) OR (B<>255) THEN 130 
ELSE 100 

130 X=INP(PUERTOX): Y=INP(PUERTOY) 

140 X=24: Y=48: REM VALORES SIMULADOS, 
PARA PRUEBA SIN MARCO 

150 GOSUB 200: REM MUESTRA VECTORES 
VX, VY 

160 GOSUB 310: REM PRESENTA MATRIZ 

170 LOCATE 15,1: PRINT "PULSE PARA SE- 
GUIR* 

180 INPUT A$ 

190 CLS: GOTO 90 

200 REM MUESTRA EN PANTALLA LOS VEC- 
TORES 

210 LINEA=1 

220 FOR I=1 TO 8 

230 VX(D=X AND LINEA: VY()=Y AND LINEA 
240 LINEA=LINEA*2 

250 NEXT 1 

260 PRINT: PRINT "VX="; 

270 FOR I=1 TO 8: PRINT VX(D);: NEXT 1 

280 PRINT * VY="; 
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290 FOR I=1 TO 8: PRINT VY();: NEXT l: PRINT 
300 RETURN 

310 LOCATE 1,1: REM MUESTRA LA MATRIZ 
320 PRINT " 12345678": 

330 FOR I=3 TO 10:LOCATE 1,1:PRINT 
MID$(V$ 1-2,1);: NEXT 1 

340 FOR I=1 TO 8 

350 FOR J=1 TO 8 

360 IP VX()<>0 AND VY(J)<>0 THEN LO- 
CATE 2+1,2+J:PRINT “"; 

370 NEXT ] 

380 NEXT 1 

390 RETURN 


La rutina de exploración puede activar- 
se de forma continua, por temporización o 
bien por detección de que hay algún sensor 
activado. Mediante el circuito que se indica, 
podría generarse interrupción cada vez que 
hubiera algún sensor activado, comenzándose 
entonces la exploración para detectar cuál o 
cuáles fueron los que lo causaron. Requiere 
una entrada adicional para indicar el estado o 
para producir la interrupción. 


Para obtener las condiciones óptimas 
de funcionamiento conviene alinear las zonas 
sensibles con posiciones de filas y columnas 
de la pantalla. Para ello se diseñará una pan- 
talla similar al menú más complejo que se pue- 
da utilizar en la práctica y se harán coincidir 
las posiciones de las zonas sensibles con las fi- 
las y columnas de los puntos de selección del 
menú. Sabiendo estas coordenadas, los pro- 
gramas que usen esta interfaz táctil utilizarán 
para indicar los puntos a contactar solamente 
los centros de las zonas sensibles. Todas las 
pantallas pueden ajustar su imagen en altura 
y anchura, por lo que podrá hacerse un ajuste 
fino para centrado de las zonas sensibles, si se 
cambia de pantalla. 


El Lista de componentes electrónicos 


— 16 LEDs infrarrojos, TIL31B. 

— 16 fototransistores, TIL81. 

— Multiplexor, realizado con 74LS05, 
con salidas conectadas en OR, cableado si se 
emplea entrada por interrupción. 

— Decodificador para la tarjeta de am- 
pliación de puertos, 741138. 

— Amplificador de conexión al bus, 
7415244. 
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AL PUERTO DE ENTRADA 0 
Xx 


ca as 


AL PUERTO DE ENTRADA 1 


A PUERTO DE ENTRADA 
O INTERRUPCION 


Fig. 10. Circuito para interrupción o indicación de estado. 


— Resistencias de 4K7, para los foto- 
transistores. 


El Otras aplicaciones 


Hemos visto diversas aplicaciones de 
los sensores ópticos conectados a un ordena- 
dor personal como elementos de entrada que 
permiten la relación con el mundo luminoso 
exterior. Solamente hemos contemplado aque- 
llos casos que permiten discriminar en el sen- 
sor entre dos niveles diferentes. Existen otras 
muchas aplicaciones en las cuales es necesa- 
rio medir el nivel luminoso con precisión o una 
magnitud que pueda transformarse en nivel 
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luminoso. Para estos casos deberemos dispo- 
ner de un circuito que convierta el nivel en 
una cantidad manipulable por el ordenador, 
esto es, un conversor de magnitudes analógi- 
cas en digitales. Para otras aplicaciones, ade- 
más, hemos de ser capaces de captar una lar- 
ga secuencia de valores que se producen en 
un breve período de tiempo y con unas con- 
diciones de temporización determinadas. Para 
estos casos diseñaremos los circuitos de apo- 
yo necesarios para "congelar" las señales y 
después darles el tratamiento oportuno. 

En los sucesivos capítulos veremos la 
forma de diseñar y montar estos diferentes 
circuitos para tener acceso a otros tipos más 
interesantes de señales. 


APRENDER CON EL ORDENADOR VOS 


NATURALEZA Y TECNOLOGIA 


ll Programa de conversión 
de temperaturas 


IEMPRE que tocas un cuer- 
po, tu sentido del tacto te 
permite hacer una estima- 
ción aproximada de su tem- 
peratura; sin embargo, no 
podemos hacerlo de una for- 
ma cuantitativa. 

Además debemos te- 
ner en cuenta que los efectos producidos por 
la conductividad de los cuerpos dan lugar a 
confusión en la apreciación de la temperatura 
mediante sensaciones fisiológicas. Por ello, el 
metal nos parece más frío que la madera, sin 
que ello signifique que están a distinta tempe- 
ratura. : 

Para poder medir con aparatos la tem- 
peratura de un cuerpo, se recurre al hecho de 
que las variaciones de temperatura van acom- 
pañadas de variaciones en alguna propiedad 
del cuerpo. Por ejemplo, los cuerpos aumen- 
tan de volumen al ser calentados y se contraen 
al ser enfriados. 

Este es el caso de los termómetros de 
dilatación, en los que una columna líquida va- 
ría su longitud en función de la temperatura, 
asignando de esta forma a cada longitud un 
valor numérico, obteniéndose la cuantificación 
deseada. 

Y así llegamos a las escalas de tempe- 
ratura, que van a depender del valor numéri- 
co asignado a cada longitud de la columna de 
líquido. 

Las tres escalas que debes conocer son: 

— CELSIUS (o escala centígrada). 

— KELVIN (0 escala absoluta). 

— FARENHEIT. 
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La escala Celsius se caracteriza por te- 
ner 0”C en el punto de fusión del hielo y 
100” C en el punto de ebullición del agua. 


Kelvin se basa en las propiedades de 
los gases ideales. Las temperaturas del hielo 
fundente y el agua en ebullición corresponden 
a 213,15” K y 373,15” K respectivamente. 


Se define esta escala a partir del llama- 
do punto triple del agua, que es el punto en el 
que coinciden en equilibrio los tres estados 
(sólido, líquido y gaseoso) del agua. 


Con ello el Kelvin, unidad de tempera- 
tura termodinámica del sistema internacional, 
se define como la fracción 1/273,16 de la tem- 
peratura termodinámica del punto triple del 
agua. 


A la temperatura de 0*K se le llama 
cero absoluto, ya que a esa temperatura las 
moléculas cesan de moverse; por tanto, es la 
menor temperatura posible. 


CELSIUS 58 


KELVIN 323 PARENHEIT 122 


108 373 212 


APRENDER CON El ORDENADOR HEN 


1 REM OOOO OOOO OOOO OOOO IOOIOGIO OOO AAA AER 
2 REM xk PROGRAMA DE CONVERSION DE TEMPERATURAS %R 
3 REM OOOO RARE RARA RRA RA AREA A 


10 
20 
30 
40 


CLs 
SCREEN 2 
PRINT "QUE OPCION DESEAS" 
PRINT ”1/ PASAR DE CELSIUS A KELVIN Y FARENHEIT" 
PRINT "2/'PASAR DE KELVIN A CELSIUS Y FARENHEIT" 
PRINT "3/ PASAR DE FARENHEIT A CELSIUS Y KELVIN" 
PRINT :PRINT :PRINT 

INPUT R ] 

IF R=1 THEN GOSUB 300 

IF R=2 THEN GOSUB 400 

IF R=3 THEN GOSUB 500 

END 

REM AO OOOO 

REM Xx SUBRUTINA CONVERSION DE CELSIUS kk 

REM OR E AA AAA AAA 

INPUT ” QUE TEMPERATURA TIENES EN GRADOS CELSIUS";TC 
CcLs 


320 LET TK=T0+273 
330 LET TF=INT(1.8xTC+32) 

340 PRINT "CELSIUS";TC5" KELVIN"¡Tki" FARENHEIT"; TF 
350 GOSUB 1000 

360 GOSUB 2000 

370 GOSUB 3000 

380 RETURN 

ADO REM IO OOOO 


REM Ak SUBRUTINA CONVERSION DE KELVIN x%4 


OZ REM OOOO IO 

405 INPUT " QUE TEMPERATURA TIENES EN GRADOS KELVIN"; TK 
210 CLS 

420 LET TC=TK-273 

430 LET TF=INT(1.8XTC+32) 

440 PRINT "CELSIUS": TC: " KELVIN"¿TK5" FARENHEIT"3 TF 
450 GOSUB 1000 

460 GOSUB 2000 

470 GOSUB 3000 

480 RETURN 

500 REM ORIO OOOO OOOO OOOO DIOIOIOIOIOIOIIOO XK 


REM AX SUBRUTINA CONVERSION DE FARENHEIT Xx 


OZ REM RIOR RO III ICO RA 
505 INPUT " QUE TEMPERATURA TIENES EN GRADOS FARENHEIT";TF 
510 CLS 

520 LET TC=(TF-32)/1.8 

530 LET Tk=TC+*273 

540 PRINT "CELSIUS":3TC3" KELVIN"3TK3" 'FARENHEIT":3 TF 
5350 GOSUB 1000 

560 GOSUE 2000 

570 GOSUB 3000 

580 RETURN 

1000 REM MORO ROO A 
1001 REM ** SUBRUTINA DE DIBUJO DE TERMOMETROS kk 
1002 REM OOOO IOIRIOIOIOIOOOIOIRIOIOIOOOOIOIGIOIO OO KK 
1005 LET Y=190 á 

1010 LET X=20 

1020 FOR J=1 TO 3 

1030 PSET (X.Y) 

1040 FOR I= 1 TO 10 

1050 READ AB 

1060 LET A=AxX2: LET B=BX2 

1070 LET A$S=STRS(A):LET B=Bk(-1):LET B6=S5TR5$(E) 
1080 LET DIBS="M"+"+"+09+","+"+"+BS 

1090 DRAW DIES 

1100 NEXT 1 

1110 LET X=X+150 

1120 NEXT J 

1130 RETURN 

2000 REM ORO RO RR IO A 

2001 REM xk SUBRUTINA DE DIBUJO ESCALAS xk 

DOOZ REM GIOOOOOOIOOOIOOOO OOOO RA 

2005 LET A=27 

2010 FOR I=1 TO 3 

2020 LET B=Y-36 

2030 FOR J=1 TO 14 

2040 PSET (A.B) 

2050 DRAW “M-3.+0" 

2060 LET B=B-10 

2070 NEXT Y 

2080 LET A=A+150 

2090 NEXT 1 
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2100 FOR I=i TO 9 

2110 READ A,B.C5 E: : 
2120 LOCATE A,B: PRINT Cs 38 E Ed A: 
2130 NEXT 1 y Aa 
2140 RETURN . 

3000 REM SOCORRO RIONIO RICO PEO a/tads + 

3001 REM 44 SUBRUTINA TEMPERATURA CORRESF ONDI! NTE Ak 

3002 REM E REDES E LE DO ERA. 

3005 LET YY=Y-3 

3010 LET.X=32 

3015 1F TC>110 THEN LET TO=110 

3020 T=1INT(TC+462) 

3030 FOR l=1 TO 3 

3040 PSET (X.YY) . 

3050 DRAb "M+0,-"+STRS(T) 

3060 X=X+150 

3070 NEXT 1 

3080 RETURN q 

£000 DATA '+0.+12,+3,+3,+0.+70.+10 ESE 270 HE L3, +0, EN +0 
6010 DATA +0,+12, +3 +34 +04+705+1, 143,44, +03 +41. -70.+3 34 +0,-125-12,+0 
6020 DATA +0,+12.+3.+3,+0.+70,+1.+3,+2,+0, +1 LIAO IO NEB1S 00-12 1-12,40 
6030 DATA 16,2,"0".16,19,"237",16,38."32" , Ñ 

£040 DATA 19.1."-18",19.19."2599", 19, So mu 


6050 DATA 4,1,"100",4, 44 730 E Sd Ra 


Para la conversión de escalas utilizare- 
mos la siguiente igualdad: 


_K278 _ F-32 


100 100. 180 


Con ello, si suponemos según la figura 
que tenemos 50* C vemos que habrá: 


50__ K-273 
100%. 100% 
K = 323” K 
Y la temperatura en Farenheit será: 
50 _ P-32 
100 180 
PF =122*F 


Adaptación a otros ordenadores 
AMSTRAD 


20 MODE 2 

1005 Y = 1 

1010 X = 40 

1030 PLOT X, Y 
1060 A = A*3:B = B'3 
1070 no se pone 
1080 no se pone 
1090 DRAWR A,B 
2005 A = 47 

2020 B= Y + 54 
2040 PLOT A,B 
2050 DRAWR -3,0 
2060 B=B+15 
30058 YY = Y +3 
3010 X = 58 


3020 T = INT(TC/10*15 + 81) 

3040 PLOT X, YY 

3050 DRAWR 0,T 

6030 DATA 1,20,'0",10,20,'237",21,20,"32" 
6040 DATA 1,22,'-18",10,22,255",22,22, 0" 
6050 DATA 1,11,*100",10,11,'373",20,11,'212" 


ZX-SPECTRUM 


20 no se pone 

110 GOTO 9999 
1005 LET Y =1 

1030 PLOT X, Y 
1070 no se pone 
1080 no se pone 
1090 DRAW A,B 
2020 LET B = Y +36 
2040 PLOT A,B 
2050 DRAW -3,0 
2060 LETB=B+10 
3005 LET YY =Y +3 
3040 PLOT X, YY 
3050 DRAW 0,T 


COMMODORE 


Quitar las líneas: 
350 
360 
370 
450 
460 


470 
550 
560 
570 
1.000-1.130 
2.000-2.140 
3.000-3.080 


PROBLEMAS MATEMÁTICOS 
És Matrices 


Las matrices son unas determinadas es- 
tructuras matemáticas representadas como 
conjuntos de números reales escritos en filas 
y columnas. 

Dado que son operadores, se podrán 
sumar, restar, multiplicar, etc. 
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APRENDER CON EL ORDENADOR “AAA 


También se definirá como determinan- 
te de una matriz al valor numérico de dicha 
matriz. En un próximo libro aparecerá un pro- 
grama para calcular determinantes. 


Como aplicaciones de las matrices en 
el cálculo tenemos la resolución de sistemas 
de ecuaciones, además de la representación 
de vectores y operaciones con éstos. Los vec- 
tores no son más que un caso particular de las 
matrices que sólo tienen una fila o una columna. 
na. 

Con el programa que aquí se presenta 
podremos sumar, restar y multiplicar matri- 
ces. 

Comienza con la presentación de un 
menú en el que mediante los números 1, 2 6 
3 elegiremos la opción. 

A continuación, dependiendo de la op- 
ción elegida, el programa irá a la subrutina 
que corresponda (suma/resta/multiplicación), 
en la cual se pide las dimensiones de las ma- 
trices operandos. 

Habrá que tener en cuenta que, tanto 
en la suma como en la resta, las matrices de- 
ben tener la misma dimensión para poderse 
efectuar la operación. 

Si esto no es así, el programa nos lo in- 
dicará con un mensaje de error y volverá al 
menú principal. 

Si las dimensiones son correctas, el pro- 
grama irá pidiendo sucesivamente los datos 
de cada matriz por filas. 

Todas estas filas van siendo almacena- 
das en las matrices A y B del programa Basic. 

La matriz A se lee en la subrutina que 
comienza en la línea 2000, La matriz B se leerá 
en la subrutina que comienza en 3000. 

Una vez realizadas las lecturas de las 
dos matrices, en la subrutina que comienza en 
la línea 4000 se sumarán/restarán las dos ma- 
trices. Si es un producto la opción elegida, éste 
se realizará en la subrutina que comienza en 
la línea 4200. 

Hay que hacer notar que la subrutina 
que realiza la suma es la misma que la que 
hace la resta. Esto se consigue cambiando de 
signo sucesivamente todos los elementos de la 
matriz B (líneas 670 a 710). 

Por último, después de realizarse la 
operación, con sentencias INPUT se pregunta 


10 REM XXXPRESENTACIONA* 

20 SCREEN 1 

30 CLS 

40 PRINT TAB(B):"MATRICES" 
50 PRINT :PRINT:PRINT 


si se quiere salir del programa o no. Éste fina- 
lizará si la respuesta es afirmativa. Si no es así, 
el programa volverá a presentar el menú del 
principio. 

A continuación vemos un ejemplo de 
una suma de matrices: 


La matriz A es la siguiente: 


RAE LL E de 4 ES 

Ped pr es dd Aa 

A E ma sd a 

FILA 4 5 1 E aos A as 

a A Hex SS 4 pe 
Fig, 2. 


La matriz B será: 


O O 
een O 
FIERA AI 


L> 
ho 
E 
38 
ni 
í 
+ 


mi 
T 
2. 
f 
+ 
h 
Pu 
pa 


Fig. 3. 


Y la matriz suma tendrá las siguientes 
filas y columnas: 


A 


PEA O A 6) és t> o 

F 3 LN dy ds » 

FILA TA é 0) E € 

pa Pu os ¿ é é 3 

FILA 5 6 és $ é e 
Fig. 4. 


60 PRINT TAB(7):3"1 SUMA"2+PRINT 

70 PRINT TAB(7):"2 RESTA": PRINT 

B0 PRINT TAB(7):3"3 PRODUCTO": PRINT 

90 INPUT “OPCION ELEGIDA: "¡A 

100 IF A=1 THEN GOTD 200 

110 IF A=2 THEN GOTO 500 

120 IF A=3 THEN GOTO 800 

130 GOTO 10 

200 REM XXXSUMA DE MATRICESXXX 

210 INPUT"No. FILAS DEL SUMANDO 1:":F1 

220 INFPUT"No. COLUMNAS DEL SUMANDO 1: ":C1 

230 INPUT'"No. FILAS DEL SUMANDO 2:":F2 

240 INPUT"No. COLUMNAS DEL SUMANDO 2:":02 

250 1F Fi=F2 AND Ci=C2 THEN GOTO 320 

260 CLSi¿PRINT :PRINT ¿PRINT ¿FRINT 

270 PRINT "NO SE PUEDEN SUMAR MATRICES" 

280 PRINT "DE DISTINTO NUMERO DE” 

290 PRINT "FILAS O COLUMNAS" 

300 FOR X=0 TO 2000:NEXT X 

310 GOTO 10 

320 CELS: DIM A(F1,C1):DIM B(F2.C2) 

330 PRINT "INTRODUZCA ELEMENTOS DEL SUMANDO 1"*PRINT :¿PRINT 
340 GOSUB 2000 

350 PRINT "INTRODUZCA ELEMENTOS DEL SUMANDO 2":PRINT ¿PRINT 
360 GOSUB 3000 

370 CLS:PRINT TAB(8)3 "MATRIZ SUMA"+PRINT :PRINT ¿PRINT 

380 GOSUE 4000 

390 INFUT "Pulse s para salir “del programa o e ol tecla para continuar"1Z$ 
400 IF Z$="s" OR 2$="S" THEN END 

410 CLEAR 

420 GOTO 10 

500 REM xXx RESTA DE MATRICESXKk* 

510 INPUT"No. FILAS DEL MINUENDO :":F1 

520 INPUT”No. COLUMNAS DEL MINUENDO 2":C1 

530 INPUT"No. FILAS DEL SUSTRAENDO :":F2 

540 INPUT"No. COLUMNAS DEL SUSTRAENDO :":C2 

550 1F Fi=F2 AND C1=C2 THEN GOTO 620 

560 CLS:PRINT :PRINT ¿PRINT ¿PRINT 

570 PRINT "NO SE PUEDEN RESTAR MATRICES" 

580 PRINT "DE DISTINTO NUMERO DE” 

590 PRINT "FILAS O COLUMNAS" 

600 FDR X=0 TO 3000:NEXT X 

610 GOTO 10 

620 CLS:DIM A(F1,C1):DIM B(F2,C2) 

630 PRINT "INTRODUZCA ELEMENTOS DEL MINUENDO "*PRINT :*PRINT 
640 GOSUB 2000 

630 PRINT "INTRODUZCA ELEMENTOS DEL SUSTRAENDO ":PRINT :PRINT 
£60 GOSUB 3000 

670 FOR N=1 TOD F2 

680 FOR K=1 TO C2 

670 LET B(N,K)=-B(N,K) 

700 NEXT K 

710 NEXT N 

720 CLSI3PRINT TAB(8)1 "MATRIZ DIFERENCIA": PRINT :PRINT :PRINT 
730 GOSUB 4000 

740 INPUT "Pulse s para salir del proorama o cualquier tecla para continuar”":17Z9 
7350 1F Z2%="s" OR 2$="S" THEN END 

760 CLEAR 

770 GOTO 10 

800 REM XXXMULTIFPLICACION DE MATRICES*AXX 

810 INPUT"No. FILAS DEL MULTIPLICANDO :"¿Ft 

820 INPUT"No. COLUMNAS DEL MULTIPLICANDO :":01 

830 INPUT"No. FILAS DEL MULTIPLICADOR 1":F2 

840 INFUT"No. COLUMNAS DEL MULTIPLICADOR 2:02 

850 IF Cl=F2 THEN GOTO 940 

860 CLS:PRINT ¿FPRINT ¿PRINT :PRINT 

870 PRINT "ESTAS MATRICES NO SE PUEDEN" 

880 PRINT "MULTIPLICAR PORQUE EL NUMERO" 

890 PRINT "DE COLUMNAS DEL MULTIPLICANDO" 

900 PRINT "ES DISTINTO DEL NUMERO DE" 

910 PRINT "FILAS DEL MULTIPLICADOR" 

920 FOR X=0 TD 2500:NEXT X 

930 GOTO 10 

940 CLS:DIM A(F1,C1):DIM B(F2,C2) 

950 PRINT "INTRODUZCA ELEMENTOS DEL MULTIPLICANDO "+PRINT :PRINT 
960 GOSUB 2000 

970 PRINT "INTRODUZCA ELEMENTOS DEL MULTIPLICADOR PaRRINT ¿PRINT 
980 GOSUB 3000 

990 CLS:PRINT TAB(8)3 "MATRIZ PRODUCTO":PRINT +FRINT ¿PRINT 
1000 GOSUB 4200 

1010 INPUT "Pulse s para salir del programa o cualquier tecla para continuar";Zs$ 
1020 1F Z$="s" OR Z$="S" THEN END 

1030 CLEAR 


41 


APRENDER CON EL ORDENADOR F* 


1040 GOTO 10 

2000 REM KXXLECTURA PRIMERA MATRIZA XX 
2010 FOR N=1 TO F1 

2020 PRINT "FILA “¿N:FPRINT :¿PRINT 
2030 FOR K=1 TO C1 

2040 INPUT A(N,K) 

2050 NEXT K 

2060 FRINT ¿PRINT 

2070 NEXT N 

2080 CELS 

2090 FOR N=1 TO F1 

2100 PRINT "FILA "3N3"2"3 

2110 FOR K=1 TO C1 

2120 PRINT A(N,K)3" "y 

2130 NEXT K 

2140 FRINT ¿PRINT 

2150 NEXT N 

2160 FOR X=1 TO 3000: NEXT X 

2170 CLS 

2180 RETURN 

3000 REM XXALECTURA SEGUNDA MATRIZARXXK 
3010 FOR N=1 TO F2 

3020 FRINT "FILA ":¿N:3PRINT :PRINT 
3030 FOR K=1 TO C2 

3040 INPUT B(N,K) 

3050 NEXT K 

3060 NEXT N 

3070 CLS ; 
3080 FOR M=1 TO F2 

3090 PRINT "FILA "1N:":";5 
+ 3100 FOR K=1 TO C2 

3110 PRINT B(N.K):" "; 

3120 NEXT K 

3130 PRINT ¿PRINT 

3140 NEXT N 

3150 FOR X=1 TO 3000:NEXT Xx 

3160 RETURN 

4000 REM AXXOPERACION SUMA/RESTA DE MATRICESKXX 
4010 FOR N=1 TO F1 

4020 PRINT"FILA ":N3":2":3 

9030 FOR K=1 TO Cl 

24040 PRINT A(N,K)+E(N.K)Ji" 3 
24050 NEXT K 

5080" PRINT 2: PFRINT 

4070 NEXT N 

4080 RETURN 

4200 REM AXXOPERACION PRODUCTO DE MATRICESXXAX 
4210 FOR N=1 TO Fi 

4220 PRINT"FILA "3N2"3""; 

4230 FOR F=1 TO C2 

4240 LET W=0 

4250 FOR K=1 TO C1 

4260 LET W=(A(N.K)XB(K,F))+w 


4270 NEXT K 
4280 PRINT Wi" "; 
4290 NEXT F 
4300 PRINT PRINT 
4310 NEXT N 


4320 RETURN 


Variaciones para otros ordenadores 750 ...THEN GOTO 9999 
760 no se pone 
AMSTRAD MSX 1020 ...THEN GOTO 9999 
1030 no se pone 
20 MODE 1 20 SCREEN 0 
410 no se pone 410 no se pone COMMODORE 
760 no se pone 760 no se pone 20 no se pone 
1030 no se pone 1030 no se pone 260 PRINT CHR$(147) por CLS 
320 PRINT CHR$(147) por CLS 
ZX-SPECTRUM 0 PRINT CHR$(147) por CLS 
no se pone 
20 no se pone 560 PRINT CHR$(147) por CLS 
400 ...THEN GOTO 9999 620 PRINT CHR$(147) por CLS 
410 no se pone 120 PRINT CHR$(147) por CLS 
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760 no se pone 

860 PRINT CHR$(147) por CLS 
940 PRINT CHR$(147) por CLS 
990 PRINT CHR$(147) por CLS 
1030 no se pone 

2080 PRINT CHR$(147) por CLS 
2170 PRINT CHR$(147) por CLS 
3070 PRINT CHR$(147) por CLS 


SOCIEDAD 
El La conjugación verbal 


En el programa que a continuación pre- 
sentamos están definidas las conjugaciones de 
los verbos regulares de la lengua española. 

Como todos sabemos, en nuestro idio- 
ma, a diferencia de otras lenguas también de 
origen romance, la terminación verbal es lo 
que caracteriza todos los tiempos y todas las 
personas de los verbos; en el castellano se 
puede prescindir de los pronombres persona- 
les que acompañan a las personas de los ver- 
bos; solamente con los morfemas que se les 
unen a las raíces podemos determinar cuál es 
el modo, el tiempo y la persona de la forma 
que se analice. 

Hemos enunciado todas las formas im- 
personales y las formas personales en sus tres 
modos: indicativo, subjuntivo e imperativo. 

Con este programa se podrá obtener 
cualquier tiempo verbal a partir de la intro- 
ducción del verbo en infinitivo. 

Unicamente habrá que tener en cuenta 
que el verbo que introduzcamos debe ser re- 
gular, ya que si no lo es, el programa no fun- 
cionaría correctamente. 

Indagando en la construcción del pre- 
sente programa, se puede ver en la línea 180 


1 SCREEN 1 
10 REM XXAVERBOS REGULARESXXX 
20 REM *XAXPRESENTACIONA** 


40 PRINT 2¿PRINT ¿PRINT ¿PRINT ¿PRINT 


el dimensionamiento de tres matrices de tres 
dimensiones cada una, a saber: 


I$ para almacenar todos los tiempos de 
indicativo 

S$ para almacenar el modo subjuntivo 

O$ para almacenar el presente de im- 
perativo. 


La primera dimensión determina la con- 
jugación, la segunda el tiempo verbal y la ter- 
cera la persona. Así, en las líneas 190 a 370 se 
van leyendo sucesivamente todas las desinen- 
cias verbales y se van almacenando en estas 
matrices para después concatenarlas con la 
raíz del verbo introducido por el usuario para 
presentar en pantalla el tiempo que se ha ele- 
gido. E 

El programa consta de un menú donde 
elegiremos con un número del 1 al 4 el modo 
verbal, después de haber introducido el ver- 
bo a conjugar, en infinitivo y en mayúsculas. 

A continuación, dependiendo de la op- 
ción elegida, aparecerá en pantalla otro menú 
(a excepción de las formas no personales que 
aparecen directamente), donde eligiremos el 
tiempo verbal que queremos que sea presen- 
tado. 

Al final de todo esto el ordenador nos 
hará dos preguntas acerca de si queremos ob- 
tener otro tiempo verbal y a continuación si 
queremos conjugar otro verbo. Todo esto se 
hace en la subrutina FINAL DEL PROGRAMA 
(línea 1890). 

La clave de todo el programa la tene- 
mos en las líneas 380 a 440 en las cuales alma- 
cenamos en sendas variables alfanuméricas la 


. Taíz y la desinencia del verbo introducido. 


A partir de esta última obtendremos la conju- 
gación de que se trata. 


50 PRINT TAB(10); "CONJUGACION"+PRINT :PRINT 


60 PRINT TAB(13):"DE"*PRINT :PRINT 
70 PRINT TAB(8)3 "VERBOS REGULARES" 
80 FOR F=1 TD 2000 ¿NEXT F 


90 REM XAXLECTURA PRESENTACION TIEMPOS VERBALESk*k 


100 DIM T$(10) : . 
110 FOR A=1 TO 10 

120 READ Ts$(A) 

130 NEXT A 

140 DIM U$(6) 

150 FOR A=1 TO 6 

160 READ US(A) 

170 NEXT A 


180 DIM 1$(3,10,6):DIM 5%(3,6,6):DIM 0$(3,1,3) 


190 FOR E=1 TO 3 
200 FOR A=i TO 10 
210 FOR C=1 TO 6 
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220 READ 1$(E,A,0) 
230 NEXT C 
240 NEXT A : 
250 NEXT E 
260 FOR E=1 TO 3 
270 FOR A=1 TO 6 
280 FOR C=1 TO 6 
290 READ S$(E,A,C) 

310 NEXT A 

320 NEXT E 

340 FOR C=1 TO 3 

350 READ 0$(E,1,C) 

360 NEXT C : 

370 NEXT E 

380 CLS: INPUT "VERBO A CONJUGAR (EN INFINITIVO):"+XS 

390 LET L=LEN (xX$) 

400 LET H8=sLEFTS (X$,L-2) 

410 LET Z8=RIGHTS (X$,2) 

420 IF Z$="AR" THEN LET W=1:LET PS="ADO" 

430 IF Z$="ER" THEN LET W=2:LET P$="1D0" 

440 1F 2%="IR" THEN LET W=3¿LET P$="IDO" 

450 REM kKXMENU DE MODOS VERBALESXXx 

460 CLS: PRINT TAB(10):"M OD OS" 

470 PRINT :¿PRINT :PRINT ¿PRINT 

480 PRINT TAB(9):"1 FORMAS NO PERSONALES"*PRINT :PRINT 

490 PRINT TAB(B);"2 INDICATIVO":PRINT :PRINT 

500 PRINT TAB(B):3"3 SUBJUNTIVO": PRINT :PRINT 
Si0 PRINT TAB(8);"4 IMPERATIVO":PRINT :PRINT 
520 INPUT "OPCION ELEGIDA: ";B 

S3O 1F E<1 OR B>4 THEN GOTO 450 | 
540 CLS : 
550 IF E=1 THEN GOTO 590 
560 IF B=2 THEN GOTO 720 
570 1F B=3 THEN GOTO 990 

580 IF E=4 THEN GOTO 1220 

590 REM XAXFORMAS NO PERSONALESXXx 

600 PRINT TAB(10);"F DR MA S":PRINT ¿PRINT 

610 PRINT TAB(4)3"N DO PERSONALE S":PRINT :¿PRINT 
620 PRINT TAB(10): "SIMPLES": PRINT 
$630 PRINT “INFINITIVD. .....":¿X$:PRINT 

640 IF W=1 THEN LET Q$="ANDO":GOTO 660 

650 LET 0s="IENDO" 

660 PRINT "GERUNDIO. ....."3H$;0$:PRINT 

670 PRINT "PARTICIPIO. ....."¿HS¡PS:PRINT:PRINT 

680 PRINT TAB(8); "COMPUESTAS": PRINT 

£90 PRINT "INFINITIVO......"i "HABER "¡HS:PS:PRINT, 

700 PRINT "GERUNDIO. ....."3 "HABIENDO ";H$;P$:PRINT 

710 GOTO 1900 

720 REM AKKINDICATIVOKEX 

730 CLS: PRINT TAB(6): "INDICATIVO" 

740 PRINT :PRINT ¿PRINT 

750 PRINT TAB(5):"1 PRESENTE" 

760 PRINT TAB(S);"2 PRET. IMPERFECTO" 

770 PRINT TAB(S):"3 PRET. INDEFINIDO" 

780 PRINT TAB(5);"4 FUTURO IMPERFECTO" 

790 PRINT TAB(5):"5 CONDICIONAL SIMPLE" 

800 PRINT TAB(5);"6 PRET. PERFECTO" ; 

810 PRINT TAB(5):"7 PRET. PLUSCUAMPERFECTO" 

820 PRINT TAB(5); 8 PRET. ANTERIOR" 

830 PRINT TAB(5):"9 FUTURO PERFECTO" 

840 PRINT TAB(4); "10 CONDICIONAL COMPUESTO" 

850 INPUT "OPCION ELEGIDA: "¿N 

860 IF N<1 OR N>10 THEN GOTO 730 

870 CLS 

880 PRINT TAB(S):TS(N)3PRINT ¿PRINT :PRINT :PRINT 

890 GOSUB 1820 

900 1F N>5 THEN GOTO 950 

910 FOR X=1 TO 6 

920 LOCATE S+X,14:PRINT HS: 1$(W,N,X) 

930 NEXT x 

940 GOTO 1900 

950 FOR X=1 TO 6 > 

960 LOCATE S5+X.11:5PRINT IS(W.N,X) 3" "HS: PS 

970 NEXT X 

980 GDTO 1900 

990 REM XAXSUBJUNTIVONKk 

1000 CLS: PRINT TAB(6):"S UB JUN TI VO” 

1010 PRINT :PRINT :PRINT 
1020 PRINT TAB(5):"1 PRESENTE" 

1030 PRINT TAB(S):"2 PRET. IMPERFECTO" 

1040 PRINT TAB(S):"3 FUTURO IMPERFECTO" 
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1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 

1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 


FRINT TAB(5)3"4 PRET. PERFECTO" 

PRINT TAB(5)1"5 PRET, PLUSCUAMPERFECTO" 

PRINT TAB(S);"6 FUTURO PERFECTO" 

INFUT "DFCION ELEGIDA: "¿N 

IF N<1 OR N26 THEN GOTO 1000 

CLs 

PRINT TAB(S):US(N):PRINT :PRINT :PRINT :PRINT 
GOSUB 1820 

IF N>3 THEN GOTO 1180 

FOR X=1 TO 6 

LOCATE 5+X,143PRINT H$35% (W,N.X) 

NEXT X 

GOTO 1900 

FOR X=1 TO 6 

LOCATE S+X,11:PRINT S$(W,N,X)3" "¡HS:PS 

NEXT Xx 

GOTO 1900 

REM XXXIMPERATIVOX*K% 

PRINT TAB(S)3"PRESENTE":PRINT :¿PRINT 2PRINT ¿PRINT 
FOR X=1 TO 3 

LOCATE 5+X.,14:PRINT H$:08(W,1,X) 

NEXT Xx 

GOTO 1900 

DATA PRESENTE.PRETERITO IMPERFECTO. PRETERITO INDEFINIDO, FUTURO IMPERFECTO,C 


ONDICIONAL SIMPLE,PRETERITO PERFECTO, PRETERITO PLUSCUAMPERFECTO,PRETERITO ANTERI 
OR,FUTURO PERFECTO, CONDICIONAL COMPUESTO 


1290 


DATA PRESENTE,PRETERITO IMPERFECTO, FUTURO IMPERFECTO, PRETERITO PERFECTO,PRE 


TERITO PLUSCUAMPERFECTO. FUTURO PERFECTO 


1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 


REM XXXLECTURA TERMINACIONES VERBALESXAx 

DATA -0,AS,A,AMDS,AIS.AN 

DATA ABA,ABAS,ABA,ABAMOS, ABAIS . ABAN 

DATA E,ASTE,O, AMOS, ASTEIS,ARON 

DATA ARE,ARAS, ARA, AREMOS ,AREIS ¿ARAN 

DATA ARIA,ARIAS,ARIA, ARIAMOS, ARIAIS,ARIAN 

DATA HE,HAS,HA,HEMOS, HABEIS, HAN 

DATA HABIA, HABIAS, HABIA,HABIAMOS, HABIAIS, HABIAN 

DATA HUBE,HUBISTE,HUBO,HUBIMOS,HUBISTEIS, HUBIERON - 

DATA HABRE,HABRAS, HABRA, HABREMOS, HABRE IS, HABRAN 

DATA HABRIA, HABRIAS, HABRIA, HABRIAMOS, HABRIAIS,HABRIAN 

DATA 0,ES,E,EMDS.EIS,EN 

DATA IA, IAS, TA, IAMOS, IAIS,IAN 

DATA 1,ISTE,IO,IMOS, ISTEIS, IERON 

DATA ERE,ERAS,ERA,EREMOS,EREIS,ERAN 

DATA ERIA,ERIAS,ERIA,ERIAMOS,ERIAIS,ERIAN 

DATA HE,HAS,HA,HEMOS, HABEIS, HAN 

DATA HABIA, HABIAS.HABIA, HABIAMOS, HABIAIS, HABIAN 

DATA HUBE,HUBISTE,HUBO,HUBIMOS,HUBISTEIS.HUBIERON 

DATA HABRE , HABRAS , HABRA, HABREMOS , HABRE IS , HABRAN 

DATA HABRIA, HABRIAS,HABRIA,HABRIAMOS ,HABRIAIS, HABRIAN 

DATA O,ES.E, IMOS.IS,EN 

DATA IA,IAS, IA, TAMOS, IAIS.IAN 

DATA 1, ISTE,IO,IMOS,ISTEIS, IERON 

DATA IRE, IRAS, IRA, IREMOS, IREIS, IRAN 

DATA IRIA,IRIAS, IRIA, IRIAMOS, IRIAIS, IRIAN 

DATA HE,HAS,HA,HEMOS, HABEIS, HAN 

DATA HABIA,HABIAS,HABIA,HABIAMOS.HABIAIS,HABIAN 

DATA HUBE,HUBISTE,HUBO,HUBIMOS, HUBISTEIS, HUBIERON 

DATA HABRE, HABRAS HABRA, HABREMOS, HABRE IS, HABRAN 

DATA HABRIA, HABRIAS, HABRIA, HABRIAMOS , HABRIAIS,HABRIAN 

DATA E,ES,E,EMOS,EIS,EN 

DATA ARA,ARAS, ARA, ARAMOS, ARAIS,ARAN 

DATA ARE, ARES, ARE, AREMOS,AREIS.AREN 

DATA HAYA,HAYAS,HAYA,HAYAMOS, HAYAIS,HAYAN 

DATA HUBIERA, HUEIERAS, HUBIERA, HUBIERAMOS, HUBIERAIS, HUBIERAN 
DATA HUBIERE, HUBIERES, HUBIERE, HUBIEREMOS, HUBIEREIS, HUBIEREN 
DATA A,AS,A,AMDS,AIS,AN 

DATA IERA, IERAS, IERA, IERAMOS, IERAIS, IERAN 

DATA IERE, IERES, IERE, IEREMOS, IEREIS, IEREN 

DATA HAYA,HAYAS,HAYA, HAYAMOS , HAYAIS, HAYAN 

DATA HUBIERA ,HUBIERAS, HUBIERA, HUETERAMOS , HUBIERAIS , HUBIERAN 
DATA HUBIERE, HUBIERES, HUBIERE, HUBIEREMOS, HUBIEREIS, HUBIEREN 
DATA A,AS,A, AMOS, AIS.AN 

DATA IERA, IERAS, IERA, IERAMOS, IERAIS, IERAN 

DATA IERE, ERES, IERE, IEREMOS, IEREIS, IEREN 

DATA HAYA,HAYAS,HAYA, HAYAMOS , HAYAIS, HAYAN 

DATA HUBIERA. HUBIERAS, HUBIERA, HUBIERAMOS, HUBIERAIS, HUBIERAN 
DATA HUBIERE, HUBIERES, HUBIERE, HUBIEREMOS, HUBIEREIS, HUBIEREN 
DATA A TUSEMOS NOSOTROS,AD VOSOTROS 

DATA E TU,AMODS NOSOTROS,ED VOSOTROS 

DATA E TU.AMOS NOSOTROS. 1D VOSOTROS 

LOCATE 6,3:PRINT "YO" 

LOCATE 7,3:PRINT "TU" 

LOCATE 8,3: PRINT "EL" 


45 


APRENDER CON EL ORDENADOR [AA 


1850 LOCATE 9,1:+PRINT "NOSOTROS" 
1860 LOCATE 10,1:PRINT "VOSOTROS" 
1870 LOCATE 11,2:PRINT "ELLOS" 
1880 RETURN 

1890 REM XXXFINAL DEL PROGRAMAXKx 
1900 INPUT "OTRO TIEMPO (S/N) "¡ES 


1940 END 


Variaciones para otros ordenadores 
AMSTRAD 


1 MODE 1 
CAMBIAR LAS SENTENCIAS LOCATE X,Y 
POR LOCATE Y, X 


COMMODORE 


1 no se pone 

30 PRINT CHR$(147) 730 PRINT CHR$(147) 
380 PRINT CHR$(147)870 PRINT CHR$(147) 
460 PRINT CHR$(147)1000 PRINT CHR$(147) 
540 PRINT CHR$(147)1100 PRINT CHR$(147) 


Para las sentencias LOCATE ver simulación 
de ésta en tomo 1 


ZX-SPECTRUM 


l nose pone 400 LET H$=X$(TO LEN X$-2) 
390 no se pone 410 LET Z$=X$(LEN X$-1 TO) 
1940 GOTO 9999 


Todos los elementos de las senten- 
cias DATA deberán ir entre comillas. 

Todas las sentencias LOCATE X, Y: 
PRINT ... se sustituyen por PRINT AT X, Y;... 

Las matrices alfanuméricas necesi- 
tan otra dimensión. 


MSX 

Valen las mismas modificaciones que 
para el Amstrad, a excepción de la línea 1, 
que se sustituirá por: 


1 SCREEN 0 


PARA LOS MAS PEQUEÑOS 


El Conjuntos 


En esta ocasión hemos tenido que con- 
tener las ganas de entrecomillar de forma iró- 
nica el título de esta sección. Sí, creemos que 
"Para los más jóvenes", en este caso, no va de- 
dicado sólo a ellos. 

Es ya bien conocida la gran revolución 
. que supusieron los conjuntos en la matemáti- 


1910 1F Es="S" OR EsS="s" THEN GOTO 466 
1930 1F Vs="S" OR Vs="s" THEN GOTO 380 
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ca moderna y cómo algunas personas, ya no 
tan jóvenes, se sentían incapaces de adaptar 
su mentalidad y trabajar con los "conjuntitos", 

No desperdiciéis esta ocasión, ni tú, 
"más joven", que estudias en este momento los 
conjuntos, ni tú, "nenos joven", que nunca los 
has estudiado y siempre has querido desci- 
frarlos. 

Con este programa podrás aprender 
las bases de los conjuntos, cómo hallar su 
unión, su intersección, y cómo calcular el car- 
dinal de un conjunto. 

A grandes rasgos, aunque suponemos 
la teoría conocida, vamos a introducirte estos 
conceptos: 

— Cardinal de un conjunto es su núme- 
ro de elementos. 

— Intersección de dos conjuntos es el 
conjunto formado por los elementos comunes 
a los dos conjuntos. 

— Unión de dos conjuntos es el conjun- 
to formado por todos los elementos que hay en 
los dos conjuntos. 


A 8 

JOR BORO 
xk A k x 
x Boop B * 
A ooo c x 
* D * x * 
x E x *x * 
* Poo F * 
Ko ooo 6 x 
A o H x 
x Lo 1 x 
* * x J 4 
IMA KAMA MAA AA 


EL CARDINAL DE A ES 38 EL CARDINAL DE BES 7 


Fig. 8, 

INTERSECCION ¿NION 
Aaa lalalala lalo jala jolajalolok alla lalalala lallolojojojal 
* B x B 
* e * * ec * 
* F * x D * 
x 6 k A E * 
x H * * F * 
* 1 k A 6 X 
*x k * H x 
x * * 1 X 
x x * J xK 
* k * * 
FOGIOOIOOOOIOOIOIIOIOOIOA ES 

CARDINAL EL CARDINAL 
DE LA INTERSECCION 6 DE LA UNION ES 9 
Fig. 6. Fig. 7. 


VO REM OOOO OOOO ROO IOIO OOOO 

20 REM xk PROGRAMA DE CONJUNTOS **k 

O REM ORO OOOO OOOO OIC OO AA 

40 LET Al=10:LET Bi1=10:LET Cl=10 

SO REM OOOO OOO III ORIO III 
60 REM kx DIMENSIONANDO LAS MATRICES UTILIZADAS Xk 
TO REM Ral III III 
80 DIM A$(A1,B1): DIM C(C1):DIM B$(C1)2:DIM R$(C1) 
90 CLS 
"100 RANDOMIZE TIMER > 
110 FOR J=1 TO 10 

BO REM OOOO OIGO 

130 REM kk LEYENDO LAS MATRICES DE DATOS X*k 

LO REM OOOO III 

150 FOR I=1 TO 10 

160 READ A$(1J) 

170 NEXT 1 

180 NEXT J 

190 FOR I=1 TO 10 

200 READ C(1) 

“210 NEXT 1 : 

220 REM OACI Xx 

230 REM Xk GENERANDO CONJUNTOS ALEATORIOS kk 

DIO REM OOOO OOO ODIO 

250 LET Ni=INT (RNDX10)+1 

260 LET N2=INT (RNDX10)+1 

270 GOSUB 1000 

ZBO REM OOOO OIOROOOIOIOIOOIODIOX 

290 REM kk PREGUNTAS DE CARDINALES Xx 

FOO REM OOOO 

310 INPUT "CARDINAL DE A"¡A 

320 INPUT "CARDINAL DE B":B 

330 IF A<>C(N1) THEN PRINT "EL CARDINAL DE A ES "¿C(N1) 
340 1F E<>C(N2) THEN PRINT "EL CARDINAL DE B ES "10 (NZ2) 
350 REM RAROS Odio 

360 REM kk PREGUNTAS DE INTERSECCION xXx 

370 REM OOOO IOOIOOOIOOOIOOA 

380 LET C=0 

390 GOSUB 2000 

400 PRINT "¿CUAL ES LA INTERSECCION" 

410 FOR I=1 TO D 

420 INPUT R$(1) 

430 1F R$(I)<>B$(1) THEN LET C=1 

340 NEXT 1 

450 CLS 

460 BOSUB 3000 

470 INPUT "CARDINAL DE LA INTERSECCION":Q 

480 IF 0<>D THEN PRINT "EL CARDINAL DE LA INTERSECCION ES ";D 
490 CLS 

500 GOSUB 1000 

SO REM ARIAS ISORA 

520 REM *k* PREGUNTAS DE LA UNION *k 

530 REM OAOOOIOOOIIOOOOOIOOIAOOO 

540 LET C=0 

550 GOSUB 4000 

560 PRINT “CUAL ES LA UNION" 

570 FOR l=1 TO D 

580 INPUT R$(1) 

590 IF R$(1)<>B$(1) THEN LET C=1 

600 NEXT 1 

610 CLS 

6420 GOSUB 5000 

630 INPUT "CARDINAL DE LA UNION*":0 

640 IF Q<>D THEN PRINT "EL CARDINAL DE LA UNION ES "¿D 
650 INPUT "¿QUIERES INTENTARLO OTRA VEZ”1R4 

660 IF R$="S" OR R$="s" THEN RUN 

670 END 

1000 REM CROROIOOIOOOIOIOOIOIOIOIOIOOOIOIOOIOIOIOIGIOOIOIOOIOICIOIOL 
1010 REM Xx SUBRUTINA DE DIBUJO DE CONJUNTOS kx 
1020 REM MORO OOOO ROO IOIOOIOIOOIOIOIOIOIOO 
1030 PRINT TAB(10);" A "“sTAB(35)3" B " 
1040 PRINT TAB (10) 3 MRRAROOMnO 3 TAB (35) 3 MORIR OK 
1050 FOR I=1 TO 10 

1060 IF AS(1I,N1)=" " OR AS(I,NZ)=" " THEN LET S=0 
1070 PRINT TAB(10);"*"¿TAB(15)3AS(1,N1)5 

1080 IF Ssi THEN PRINTO "=== ===... y 
1090 IF S=0 THEN PRINT TAB(21)"*"¿TAB(35);"X"5 
1100 PRINT TAB (90): A$(1,N2):TAB(96):"x" 

1110 LET S=1 

1120 NEXT 1 5 

1130 PRINT TAB (10) 3 MRdRMROREO 1 TAB (35) 3OIOOOIROO ROO" 
1140 PRINT 
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1150 RETURN 

2000 REM IO IOIOIODIO IO KR 

2010 REM XX SUBRUTINA INTERSECCION *k 

2020 REM ORIO 

2030 LET D=0 

2040 FOR I=i TO 10 

2050 IF A$(1,N1)=" " THEN GOTO 2090 

2060 1F AS$(1,N2)=" " THEN GOTO 2090 

2070 LET B$(D+1)=A$(1,N1) 

2080 LET D=D+1 

2090 NEXT 1 

2100 RETURN 

3000 REM IRA OOOO 
3010 REM %k SUBRUTINA DIBUJO INTERSECCION x*xk 
DOLO REM OO IO OOOO: 
3030 PRINT TAR(17)3" INTERSECCION + 
3040 PRINT TAB (17) 3 MBR Oad oo" 
3050 FOR I=1 TO 10 

3060 PRINT TAB(17)3"Xk"3 TAB(26) BS (1) ¡TAB (36)3"x" 
3070 NEXT 1 

3080 PRINT TAB (17) 3 MOGOOOOOOODODIONRR KA" 
3090 PRINT 

3100 1F C=1 THEN PRINT "LO HAS HECHO MAL” 


3110 RETURN 
AOOO REM ICI 


24010 REM *Xk SUBRUTINA UNION *%x 

BO20 REM OOOO RARA 

4030 LET D=0 

4040 FOR I=1 TO 10 

4050 IF A$(1,N1)<>" " THEN LET B$(D+1)=A$(1,N1):G0TO 4080 
4060 IF A$(1,N2)<>" " THEN LET B$(D+1)=A$(1,N2):GOTO 4080 
4070 GOTO 4090 

4080 LET D=D+1 

4090 NEXT 1 

4100 RETURN 

5000 REM AOIOIAOIO ROO IOOIOOOIOIOIORIOGIODIOO 

5010 REM Ax SUBRUTINA DIBUJO UNION *xX 

SO2O REM GOEIOIOIOIOOGIOOOOOOOO RAR 

5030 PRINT TAB(17):3" UNION Y 

5040 PRINT TAB(17) 3 MdOdIORIORODIORBIOdIOnIDDD" 

5050 FOR I=1 TO 10 

5060 PRINT TAB(17):"*": TAB (26) :B$ (1): TAB(36)14"X" 
5070 NEXT 1 

5080 PRINT TAB (17) 3 MdaialdIaOoadIodO ado 

5090 PRINT 

5100. 1F. C=1 THEN PRINT "LO HAS HECHO MAL" 

5110 RETURN 

6000 DATA y AS a id o dl RS ” 
£6010 DATA “* que AAA Ped Ju a a hirió > ds e eS Me A ” 
6020 DATA ” VARO 115204 0214000 1), 1304 A o A A 4 do, 
6030 DATA ”* ABAD PE A E e . 
6040 DATA . $” y ." ” y qu $ 2 pm 5 vEn » ...u $ w ”“ A ” e : “ 0 > . ss 
6050 DATA s“ O MO: ME A IAEA LAS 
£060 DATA " 1 A US a — sp nn Bl = ua dr a jac. Sr Ji 
6070 DATA Y A: ” eS YE au AA e . o. 
£080 DATA y :* Ñ da Ñ .“u ” P D 4 “en y e e y 0] “ 5 . sa A UNOS ”. o. 
6090 DATA ”: “ 4 gn 1 20m , ul y “ .” 4 ” $” . ”n*" y u...u , " “ A " " 
6100 DATA 8,4,48,7,3,7,15,5,4,53 


Variaciones para MSX E Sobre el programa 

100 no se pone. z Está programado en un BASIC muy ge- 
250 LET Nl= INTRND()'10)+1 neral, que te será muy fácil comprender. 

260 LET N2= INT(RND()'10)+1 Consta de un programa principal que 
Variaciones para ZX-SPECTRUM va llamando a las subrutinas siguientes: 

100 no se pone. 670 GOTO 9999 — Subrutina de dibujo en la pantalla de 
Variaciones para COMMODORE los dos conjuntos iniciales (1000). 


— Subrutina de cálculo del conjunto in- 
tersección (2000). 

— Subrutina de dibujo en la pantalla 
del conjunto intersección (3000). 

— Subrutina de cálculo del conjunto 
unión (4000). 

— Subrutina de dibujo en la pantalla 
del conjunto unión (5000). 


90 PRINT CHR$(147) 

100 no se pone. 

250 LET N1=INT(RND(1)10)+1 
260 LET N2=INT(RND(1)10)+1 
450 PRINT CHR$(147) 

490 PRINT CHR$(147) 

610 PRINT CHR$(147) 
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E2 Los lenguajes 
de programación 


AS primeras máquinas elec- 
trónicas de cálculo, antece- 
soras de los ordenadores 
actuales, podían programar- 
se. Sin embargo, la progra- 
mación era muy rudimenta- 
ria y consistía en desembor- 
nar cables de sus posiciones 
y conectarlos en puntos diferentes (esto 
ocurría, por ejemplo, en el ENIAC). La tarea 
era, pues, francamente complicada, y sólo se 
llevaba a cabo para cálculos importantes (lar- 
gos en tiempo). 

Una mejora considerable consistió en 
programar las máquinas introduciendo las ins- 
trucciones en fichas perforadas. El sistema era 
mucho más cómodo (ya que permitía reorde- 
nar las fichas, en lugar de sacar cables y cam- 
biarlos de posición, etc.). Sin embargo, las ins- 
trucciones se daban al ordenador en lenguaje 
máquina (y mediante ceros y unos binarios), 
por lo que la programación resultaba muy 
complicada y sólo posible para aquellas per- 
sonas iniciadas (que debían conocer, además, 
cada modelo de máquina “al dedillo", ya que 
existían —y aún existen— diferencias conside- 
rables entre una máquina y otra). 

(El lector puede intentar imaginar el 
trabajo desarrollado al introducir al ordenador 
instrucciones complejas en “lenguaje máqui- 
na” de sólo ceros y unos.) 

Los lenguajes de programación o len- 
guajes simbólicos nacen de la necesidad de 
que el hombre se comunique con la máquina; 
su fin primordial es facilitar esa comunicación. 

En los años 50 aparecen los primeros 
lenguajes de programación. Consistían en un 


número limitado de palabras y símbolos. Su 
aportación esencial era la concisión, es decir, 
una única instrucción en un lenguaje de pro- 
gramación supone gran número de instruccio- 
nes en "lenguaje máquina”. (Más tarde, el com- 
pilador es el que hace el trabajo de traducir 
a lenguaje máquina las instrucciones del len- 
guaje de que se trate.) 

Estos primeros programas, que facilitan 
el intercambio de información entre máquina 
y hombre, se llaman "ensambladores'. Asocia- 
ban palabras mnemotécnicas para indicar de- 
terminados pasos en la máquina (por ejemplo, 
MVC para mandar el traslado de un dato en- 


¿Sabía usted que... 


En una de las múltiples guerras franco-espa- 
folas los españoles utilizaban para mandar sus men- 
sajes una clave muy complicada. Esta clave utilizaba 
casi 600 caracteres y se cambiaba periódicamente, 
resultando muy complicada de utilizar, aunque prác- 
ticamente parecía imposible de descifrar. Enrique IV 
de Francia, hombre práctico (tuvo que convertirse al 
catolicismo para aceptar el trono de su país) cono- 
ció a un abogado y matemático aficionado, Francois 
Vieta (1540-1603), que tenía fama de resolver proble- 
mas complejos matemáticamente, más por afición 
que por dedicación. El rey le entregó su confianza, 
presentándole un despacho interceptado y pidiéndo- 
le que lo descifrara. Vieta consiguió descifrarlo, uti- 
lizando un algoritmo de aproximaciones sucesivas. 
A partir de ese momento los franceses lograron des- 
crifrar la mayoría de los despachos, sacando enor- 
me provecho de ello, El rey de España, Felipe II, ja- 
más pudo sospechar lo ocurrido, y (desde luego sólo 
lo dice la leyenda negra) se quejó al Papa, alegando 
que los franceses realizaban hechicerías. 
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tre varios puntos de la memoria), en lugar de 
tener que escribir la instrucción completa me- 
diante los ceros y unos binarios (o en hexade- 
cimal). 

Sin embargo, es difícil programar en 
ensamblador sin conocer de forma absoluta la 
construcción lógica del ordenador, es decir, 
sin dominar la máquina hasta sus últimos de- 
talles, y esto hace que cada especialista lo sea 
de una máquina o gama de máquinas en par- 
ticular. 

Los constructores del ordenador pro- 
porcionan el "logicial de base", es decir, el 
conjunto de instrucciones que hacen que el or- 
denador "se pueda utilizar”. En los ordenado- 
res grandes este "logicial de base" puede es- 
tar compuesto por millones de instrucciones. 

En seguida se vio la necesidad de utili- 
zar lenguajes más sofisticados para facilitar la 
tarea de los ordenadores. Así, se empezó a ha- 
blar de lenguajes de alto nivel frente a los len- 
guajes ensambladores. 

En 1954 la IBM desarrolla un nuevo len- 
guaje con fines científicos: el FORTRAN (fór- 
mula translator-traductor de fórmulas). Las 
primeras versiones de ese lenguaje tienen 
ciertos problemas que se van solventando en 
las versiones siguientes, pero el lenguaje se 
va decantando cada vez más a ser utilizado 
por aquellos usuarios cuyos problemas sean 
principalmente científicos. 

En 1956 el Departamento de Defensa de 
los Estados Unidos decide adoptar un único 
lenguaje de programación, que servirá, ade- 
más, para todos los ordenadores de la Admi- 
nistración. Y nace el COBOL (Common Busi- 
ness Oriented Language-Lenguaje Común 
Orientado a los Negocios). En su desarrollo 
también colaboraron algunos constructores de 
ordenadores y usuarios importantes. 

Sin embargo, los lenguajes de progra- 
mación de que hemos hablado no son perfec- 
tos. Y poco a poco se van desarrollando otros 
lenguajes, intentando resolver los problemas 
que presentaban los lenguajes anteriores. 

En 1960 aparece el APL (A Program- 
ming Language-Un Lenguaje de Programa- 
ción), y el ALGOL (Algorythm Language-Len- 
guaje Algorítmico). Estos dos lenguajes se uti- 
lizan generalmente para desarrollar temas 
científicos. 

Realmente, el ALGOL nace de una reu- 
nión en Zurich (Suiza) en la que participan la 
American Asociation for Computer Machines 
y la Asociación Europea de Mecánica y Mate- 
máticas Aplicadas. El objetivo de la reunión es 
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ponerse a trabajar en el desarrollo de un len- 
guaje común, simbólico para cálculos científi- 
cos. El lenguaje, que intenta ser universal, se 
llamará ALGOL. La primera versión aparece 
en el año 1960 (ALGOL 60). 


¿Sabía usted que... 


En 1962 se concedió el premio Nobel de Quí- 
mica al profesor Kendrew, de Cambridge, por sus 
trabajos sobre la molécula de mioglobina. La mioglo- 
bina es una proteína bastante compleja (no tanto 
como la hemoglobina), y para su estudio era nece- 
sario procesar gran cantidad de información. 

Su importancia en los seres vivos es grande, 
ya que es capaz de unirse libremente a una molécu- 
la de oxígeno y pasar a almacenar este elemento en 
el tejido muscular. 

Naturalmente, químicos, médicos y otros cien- 
tíficos se habían interesado en el ordenador desde 
sus comienzos, y en este tipo de investigaciones re- 
sultaba enormemente útil. 

En investigación de Química Orgánica, por 
ejemplo, la ayuda de un ordenador es fundamental, 
ya que las cadenas de átomos que forman las molé- 
culas orgánicas son muy complejas, pues ofrecen in- 
numerables posibilidades que deben ser analizadas 
una a una. Además, en Química Orgánica es absolu- 
tamente necesario conocer la disposición espacial 
de la molécula para comprender su comportamiento 
(sobre todo, en estas moléculas tan enormes). Como 
la molécula tiene varios miles de átomos, Kendrew 
tardó más de dos años en ir concretando su estruc- 
tura. Trabajó en el ordenador de la Univesidad, el 
EDSAC. Más adelante, con otros ordenadores más 
modernos y potentes, se han llegado a conocer mu- 
chos más detalles específicos de la molécula de mio- 
globina. 


El objetivo básico de estos lenguajes es 
liberar al programador de preocuparse de las 
condiciones especiales de cada ordenador, y 
permitirle escribir programas de la forma que 
mejor le convenga. La anterior es una buena 
definición de "Lenguaje universal”; es decir, 
un lenguaje que no necesite referirse a cada 
ordenador concreto. (Recordamos al lector 
que el compilador correspondiente traducirá 
el lenguaje simbólico universal al lenguaje 
propiodelordenadorespecíficodequese trate.) 

Los lenguajes de orientación científica 
deben poder utilizar y representar las notacio- 
nes matemáticas, además de no necesitar ape- 
nas explicaciones adicionales, También deben 
ser capaces de describir procesos de cómpu- 
to, y traducir los procesos mecánicos a pro- 
gramas en lenguaje máquina. 

En los primeros años de su aparición el 
ALGOL toma un cierto auge en Europa, intro- 
duciéndose en los países del Este, y tomando 
especial auge en Rusia. 

Sin embargo, su estructura gramatical 
es muy rígida, y su vocabulario es muy esca- 
so. Estas razones hacen que su utilización se 
vaya estabilizando, e incluso decrezca con la 
aparición de otros lenguajes más modernos. 
Además, comercialmente, no tiene mucha uti- 
lidad, ya que es muy difícil de utilizar por per- 
sonal no muy especializado. 

En los años posteriores aparecen otros 
lenguajes, como el RPG (Report Program Ge- 
nerator-Generador de Programas de Infor- 
mes). Había sido desarrollado por IBM para 
sus máquinas de tarjetas perforadas, y su ob- 
jetivo era ayudar a producir fácilmente infor- 
mes. Las tarjetas y tubos quedaron obsoletas, 
pero el RPG se sigue manteniendo, orientado 
a problemas de aplicación general. 

Sin embargo, todos los lenguajes de 
programación antes citados, y que hoy en día 
siguen utilizándose, son muy herméticos, y 
sólo son útiles para fines concretos, utilizados 
por personal muy técnico. 

El primer lenguaje pensado para 'ini- 
ciar” a los estudiantes en el mundo fascinante 
de la programación es el BASIC (Beginners All 
Purpose Symbolic Instruction Code -Código 
de Instrucciones Simbólicas de Propósito Ge- 
neral para Principiantes), y para ello hubo que 
esperar a 1964. Fue desarrollado en la Univer- 
sidad de Dartmouth (EE.UU.) durante los años 
60, ya que la Universidad había tomado la de- 
cisión de enseñar informática a todos sus 
alumnos (700 cada nuevo curso). 

El éxito del BASIC fue enorme. Era sen- 
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cillo de aprender, y las instrucciones se basa- 
ban en palabras comunes inglesas. Los que lo 
utilizaban y hoy lo utilizan son generalmente 
personas interesadas en la Informática, pero 
no profesionales. En este lenguaje se va pro- 
cesando cada instrucción mediante un “intér- 
prete de BASIC”, no existe un compilador que 
traduzca el lenguaje a código máquina, una 
vez establecido el programa. Es la razón por 
la que, aunque el tiempo de programación 
puede ser reducido, el tiempo de máquina es 
bastante mayor que con otros lenguajes. 

El BASIC sigue en primera línea, y su 
éxito va parejo con el crecimiento de los mi- 
croordenadores. Como ya no se trata de pa- 
gar la hora de un ordenador grande a precio 
alto, el consumo de tiempo de máquina pasa a 
tener menos importancia frente a la facilidad 
en la programación. La mayoría de los fabri- 
cantes de "micros" se han decidido por este 
lenguaje, que ha sido mejorado en muchas 
ocasiones. (Incluso existen versiones que pue- 
den ser compiladas.) Desde luego, es el len- 
guaje más conocido por los aficionados. 

No todos los lenguajes de programación 
son americanos. Rebajemos algo el número, y 
digamos que casi todos lo son. Por ejemplo, el 
PASCAL es un lenguaje didáctico europeo, y 
para más señas, suizo. Su creador, Niklaus 
Wirth, un apacible profesor de la Politécnica 
de Zurich, lo diseñó pensando fundamental- 
mente en sus alumnos. Además, este lenguaje 
es susceptible de "crecer", hasta alcanzar la 
"medida" o "talla" del usuario. Su nombre es un 
homenaje a Blaise Pascal, matemático y filóso- 
fo francés del siglo XVIII. 

Otro lenguaje didáctico, encaminado a 
resolver problemas algebraicos y gráficos es 
el LOGO, que enseña al estudiante a mover 
una "tortuga" por la pantalla. La "tortuga" escri- 
be líneas, figuras geométricas, etc. Fue crea- 
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do por Seymor Papert en la década de los se- 
tenta. 

¿Sólo existen los lenguajes de progra- 
mación antes mencionados? Desde luego que 
no: los humanos somos complejos, y existen 
casi tantos lenguajes como libros de cocina. 

Para razonar la enorme proliferación de 
lenguajes, existen varias explicaciones, unas 
de orden comercial y otras de orden práctico. 

En el orden comercial, ocurre como con 
los refranes, cada refrán tiene su contrarre- 
frán, y cada individuo puede elegir, según su 
situación, el que más le convenga. Así, "No por 
mucho madrugar amanece más temprano" y 
"A quien madruga Dios le ayuda", en el orden 
comercial se puede seleccionar entre fabricar 
"compatibles clónicos", o bien ordenadores cu- 
yos compiladores lleven ciertas "particularida- 
des especiales" que los hacen diferentes de 
otros ordenadores de la competencia. Eviden- 
temente, estos ordenadores se han fabricado 
para que no puedan utilizar programas escri- 
tos en un lenguaje que es el que utiliza un 
equipo de la firma "enemiga". De este modo, 
los clientes siempre tienen que utilizar pro- 
ductos de esa misma casa. Este sistema es 
muy antiguo y, como saben los lectores, pro- 
porcionó enormes beneficios a la IBM en sus 
comienzos. (El negocio de las fichas constituía 
una partida importante para la empresa.) 

La segunda razón se basa en la espe- 
cialización. Los lenguajes especializados para 
temas determinados simplifican enormemen- 
te el trabajo de programación, y eso los hace 
más apreciados por el programador dedicado 
a tareas muy concretas. 

Además de las razones antes citadas, 
también puede haber ocasiones en las que un 
determinado lenguaje ocupe mucha parte de 
la memoria del ordenador, mermando consi- 
derablemente sus posibilidades. La solución 
en estos casos consiste, pues, en utilizar otro 
lenguaje que tome menos memoria. 

Existen muchos proyectos de lenguajes 
de programación universales, Que lo sean o 
no lo veremos en el futuro. Sin embargo, gran- 
des constructores y usuarios de informática 
están interesados en proyectos de este tipo, 
Uno de ellos es el proyecto HOL (High Order 


Languaje) —Lenguaje del nivel superior—. 
Uno de sus principales promotores es el De- 
partamento Norteamericano de Defensa. 
¿Otra vez la Defensa? Efectivamente, como re- 
cordará el lector, desde los primeros tiempos 
de la Informática con el ENÍAC y otros orde- 
nadores utilizados con fines militares, o al me- 
nos defensivos, el Ministerio de Defensa Ame- 
ricano (entre otros) ha ido adquiriendo un 
enorme parque de ordenadores para sus mu- 
chos organismos. Sin embargo, cada ordena- 
dor se compraba para resolver un problema o 
problemas determinados, y de esto se dedu- 
ce que el conjunto es absolutamente hetero- 
géneo. Evidentemente, la unificación da como 
resultado un ahorro de medios, y ese ahorro 
puede ser considerable. 

En 1977 el Departamento de Defensa de 
los Estados Unidos convocó un concurso mun- 
dial. Después de valorar comparativamente 
los numerosos proyectos de lenguajes univer- 
sales recibidos, que habían elaborado las más 
prestigiosas firmas mundiales, el seleccionado 
fue el desarrollado por Cll Honeywell Bull. Su 
nombre es ADA, en homenaje a Ada Lovela- 
ce, hija del poeta Byron y considerada como 
la primera programadora mundial. 

Otros lenguajes de programación orien- 
tados a trabajos específicos son el LISP y el 
PLANNER, que se utilizan en Inteligencia Ar- 
tificial, aunque el LIPS, por ejemplo, sea un 
lenguaje creado en 1958, 

En Robótica, los lenguajes deben poder 
ser ejecutables en tiempo real, de forma muy 
similar a los utilizados en el control de proce- 
sos industriales. Por la propia naturaleza de los 
problemas a resolver, deben ser lenguajes de 
muy alto nivel. Entre ellos mencionamos el AL, 
basado en el PASCAL, y desarrollado en la 
Universidad de Stanford, y otros más desarro- 
llados a partir de él como el VAL, etc. 

Entre los lenguajes de propósito gene- 
ral no debemos olvidarnos del PL/1, diseñado 
para obtener las mejores características de los 
lenguajes COBOL y FORTRAN (se trataba de 
obtener un lenguaje que fuera útil en trabajos 
científicos y comerciales). No pensamos que 
este lenguaje haya tenido la repercusión que 
se esperaba. 
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5 Bases de datos relacionales 


AS Báses de Datos Relacio- 
nales (BDR) forman un gru- 
po dentro del conjunto ge- 
neral de los Sistemas de 
Gestión de Bases de Datos 
(SGBD) que, aunque defini- 
das hace muchos años 
(1970-1972), han adquirido 
su desarrollo más modernamente y parece 
que se imponen, junto con otros modelos de 
datos (modelo entidad-relación, representa- 
ción dirigida al objeto, etc.) como el esquema 
de representación y tratamiento de informa- 
ción de los 90. 

Una Base de Datos (BD) es un conjunto 
de datos o informaciones sobre una realidad 
(una empresa u organización, o un área de co- 
nocimientos), almacenada (memorizada) por 
un ordenador, utilizada por numerosos usua- 
-Tios y cuya organización está regida por un 
modelo de datos. 

El informe ANSI-PARC de 1976 conside- 
raba que una Base de Datos debe satisfacer 
cinco criterios: 


1. Buena representación del mundo 
real. 


— Imagen fiel de la realidad. 
— Información fiable y actualizada. 


2. 


— Cada dato debe aparecer una sola 
vez (situado en un solo sitio) dentro del con- 
junto de la BD, 


3. Independencia de los programas 
de aplicación respecto de los datos. 

4. Seguridad y confidencialidad de 
los datos. 


Información no redundante. 
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— Seguridad física (contra la destruc- 
ción y contra la introducción de errores). 

— Protección contra accesos indebidos 
por parte de personas no autorizadas. 


5. Alta calidad de las aplicaciones y 
sistemas de consulta. 


— Posibilidad de respuestas rápidas. 
— Organización específica para mejo- 
rar los tiempos de tratamiento. 


Se suelen definir tres niveles de mode- 
lización de los datos; 


1, Nivel externo. Representa la visión 
de los datos que tiene el utilizador de los da- 
tos. Esta visión es, por su propia naturaleza, 
parcial e incompleta. Por otro lado, hay tantos 
modelos de datos como utilizadores: cada uno 
maneja solamente una parte de los datos y de 
un modo específico, aunque, sin embargo, 
haya zonas comunes en que los datos se sola- 
pan. 


2. Nivel conceptual. Es la síntesis de 
todos los modelos externos. En teoría, se supo- 
ne que tal modelo conceptual existe y, por tan- 
to, que los modelos externos de cada utiliza- 
dor son como versiones particulares de este 
modelo conceptual genérico. 


3. Nivel físico. De hecho, los modelos 
conceptuales teóricos no pueden ser llevados 
a la práctica en una máquina, pues los equi- 
pos de que disponemos tienen limitaciones de 
tamaño, de capacidad de proceso, etc. De ahí 
surge la necesidad de estudiar cómo el SGBD 
almacena los datos y los procesa. No se dispo- 
ne nunca del software necesario para que 
cree un diseño físico que se adecue al mode- 
lo conceptual definido, pero modernamente 
los SGBD son sumamente flexibles y permiten 
una gestión eficaz de los datos. 
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Históricamente, se suele hablar de tres 
generaciones de SGBD: 


1.2 generación (finales de los sesenta). 


Incluye los modelos básicos de gestión 
diseñados en un principio: 


a) Modelos jerárquicos en que la es- 
tructura de los datos se expresa con la ayuda 
de una jerarquía arborescente. 

El sistema más representativo de este 
grupo es el IMS (cuyo Lenguaje de Manipula- 
ción es el DL1). 

b) Modelos en red. Desarrollados de 
acuerdo con la especificación CODASYL, per- 
miten una clara separación entre la lógica y la 
física. En esta línea, los sistemas más repre- 
sentativos son el IDMS (IBM), el IDS-II (Honey- 
well) y SOCRATE (Bull). 


22 generación (desde finales de los 
setenta). 

Constituida por los modelos relaciona- 
les. En estos sistemas, la información se repre- 
senta en forma tabular. 

Existe una independencia total entre la 
lógica y la física. Hay cantidad de productos 
industriales disponibles en esta línea: ORA- 
CLE, FOCUS, INGRES, D-BASE Ill, etc. 


3. generación (desde hoy en día). 

Se están ampliando hoy los modelos de 
representación hacia estructuras más comple- 
jas, incluyendo el tratamiento de datos multi- 
media (sonido, imagen, texto), el tratamiento 
de bases de datos lógicos, bases de datos de- 
ducibles... 

Hoy por hoy, este tipo de SGBD son es- 
clusivamente experimentales. 


Las bases de datos relacionales aportan 
un conjunto de características muy intere- 
sante: 


a) Utilizan estructuras de datos muy 
simples (tablas) y que se adecuan al sistema 
de manejo de datos usual. 

b) Facilitan a programadores y gesto- 
res de la Base, lenguajes de alto nivel (4.* gene- 
ración). 

c) Posibilitan una gran independencia 
entre los datos y sus tratamientos. 

d) Permiten modelos de utilizador di- 
ferentes delas relaciones básicas implanta- 
das. 


Las BDR se basan en tres elementos fun- 
damentales: un soporte de la información (ta- 
bla), unas operaciones (relacionales o de con- 
juntos) y un estricto sistema de normalización. 
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1. El concepto fundamental en una 
BDR es la llamada “relación” de datos, plasma- 
da en una "tabla". La tabla representa la infor- 
mación básica, organizada bajo unos epígra- 
fes o atributos y sustituye a los "registros" de 
los sistemas tradicionales de soporte de la in- 
formación. 

Un ejemplo de tabla convencional es el 
siguiente: 


N.* de MODIbIO Cantidad Precio Precio 
producto stock unitario total 
102. Enchufe 50 318 15,900 
108  Clavija 87 240 20.880 
106 Múltiple 95 302 28.690 
109 Interruptor 150 s15 77.250 


La tabla, como se ve, está organizada en 
filas u ocurrencias del registro (llamadas tam- 
bién "tuplas”) y en columnas. En cada columna 
se agrupan todos los tipos de campo iguales 
de cada tupla (que responden a un determi- 
nado atributo: "nombre", 'n.* de producto", 
etcétera). A cada campo (un determinado atri- 
buto —columna— de una determinada tupla 
—fila—) se le llama elemento. "Grado" de la re- 
lación es el número de columnas de la tabla. 
La "cardinalidad” representa el número de fi- 
las de la tabla. 

Sin embargo, las tablas deben tener al- 
gunas condiciones especiales para ser mane- 
jadas adecuadamente en el sistema relacional: 


— Cada tabla sólo puede tener un tipo 
de información (registro): sus filas y columnas 
deben ser uniformes. (Aunque la BDR, gene- 
ralmente, tendrá muchas tablas.) 

— No se permiten datos duplicados. De 
hecho, cuando aparece alguna fila o columna 
duplicada como resultado de una operación, 
el propio sistema la elimina. 

— Los valores que toma cada campo 
(atributo) en una fila de la tabla deben limitar- 
se a un conjunto concreto llamado "dominio". 

— El orden en que aparecen los datos 
en la tabla es irrelevante. 


2. Las operaciones de manejo de las 
tablas en un sistema de BDR son de dos tipos: 


— Operaciones relacionales. 
— Operaciones de conjuntos. 


2.1. Operaciones relacionales son la 
restricción o selección, la proyección y la 
unión o concatenación. 


— La restricción o selección consiste 
en la construcción de otra tabla, seleccionan- 
do algunas filas de la tabla original mediante 
un adecuado criterio de selección. Por ejem- 
plo, mediante el criterio PRECIO < 305 se ob- 
tendría la tabla: 


N.? de Nambra Cantidad Precio Precio 
producto stock unitario total 

106 Múltiple 95 302 28.690 

105 Clavija 87 240 20.880 


(Obsérvese que el orden de las filas es 
irrelevante y el resultado estará ordenado 
como aparece en la tabla o en otro orden cual- 
quiera.) 

— La proyección es la construcción de 
otra tabla (a partir de la original) mediante la 
selección de ciertas columnas. 


Una proyección sobre "valores totales", 
a partir de la tabla dada, originaría la siguien- 
te tabla resultado: 


N.* de Precio 
producto Sin total 
102 Enchufe 15.900 
106 Múltiple 28.690 
109 Interruptor 77.250 
105 Clavija 20.880 


— La unión o concatenación produce 
otra tabla relacionando dos atributos (uno de 
cada tabla) por coincidencia. 

Así, por ejemplo, se puede concatenar 
la tabla dada con otra de "clientes de cada pro- 
ducto". 


N.* de Cantidad Precio 

producto Nombre stock unitario 
105 Clavija 87 240 
105 Clavija 287 240 
106 Múltiple 95 302 
102 Enchufe 50 318 
109 Interruptor 150 515 
109 Interruptor 150 515 


2.2. Operaciones de conjuntos. 


Normalmente, en los sistemas BDR se 
admiten también operaciones de conjuntos: 
unión, intersección y diferencia, entre las rela- 
ciones o tablas que forman la BDR. Además, 
es usual que se maneje el producto cartesiano 
(o una cierta restricción de él). Para todas es- 
tas operaciones, las tablas son consideradas 
como matrices a unir, intersecar, etc. 


3. La normalización. 


La presentación sin restricción alguna 
de las relaciones o tablas en un sistema de 
BDR llevaría a ciertas dificultades: podría apa- 
recer información redundante, podría perder- 
se información en alguna operación relacional, 
etcétera. Para evitarlo, se hace necesario nor- 
malizar las tablas de la BDR. 


o 
Bo qe Cliente Población Teléfono 
105 Pérez Madrid 345 67 12 
105 López Bilbao 415 34 77 
109 Pérez Madrid 345 67 12 
106 Martínez Sevilla 671 4325 
109 Martínez Sevilla 671 43 25 
102 López Bilbao 4153477 
Para dar la siguiente tabla: 
pe Cliente Población Teléfono 
20.880 Pérez Madrid 345 67 12 
20.880 López Bilbao 415 34 77 
28.690 Martínez Sevilla 671 4325 
25.900 López Bilbao 415 34 77 
77.250 Pérez Madrid 345 67 12 
717.250 Martínez Sevilla 671 43 25 
Producto Desarrollado por: Año 
ADABAS SOFTWARE AG 1972 
DATACOM/DB ADR 1974 
CA-UNIVERSE COMPUTER ASSOC. 1980 
DG SQL DATA GENERAL 1984 
DMS 2 BURROUGHS 1972 
DB 2 IBM 1983 
IDMS/R CULLINET 1972 
INGRES RTI 1980 
MIMER MIMER 1982 
ORACLE ORACLE 1979 
RAPPORT LOGICA 1976 
RELATE 3000 CRI — 
SQL/DS IBM 1980 
TIS CINCOM 1983 
ULTRA CINCOM 1983 


- (FUENTE: Guide Européen des Progiciels.) Sistemas de 


Gestión de Bases de Datos (SGBD) que se ofrecen en el 
mercado como "sistemas relacionales". 
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Eq. material (Hardware) 


Producto 

ADABAS IBM 360 - 30XX 
Compatibles 

DATACOM/BD IBM 360 - 30XX 
Compatibles 

CA-UNIVERSE IBM 370 - 30XX 
Compatibles 

DG SQL ECLIPSE 

DMS 2 B1000 - B7000 Serie A 

DB 2 IBM 370 - 30XX 

IDMS/R IBM 360 - 30XX 
Compatibles 

INGRES DIGITAL VAX.IBM,... 
IBM 370 - 43XX, BULL,CDC, 
DIGITAL 

ORACLE IBM 370 - 30XX, VAX, 
DG)... 

RAPPORT IBM 370 - 30XX, VAX,BULL, 
PRIME 

RELATE 3000 HP 3000 

SQL/DS IBM 43XX - 30XX 

TIS IBM 370 - 30XX 

ULTRA DIGITAL VAX 730 - 780 


Logical (Software) 


DOS,MVS, 
VM, XA 
DOS,MVS,VM 
XA 
DOS,MVS,VM 
XA 

AOS 

MCP 
MVS,XA 
DOS, MVS,VM 
XA 
VMS,UNIX,... 
MVS,VM,DOS 
VMS,NOS, 
GCOS 
VM,MVS, VMS,RSX 
AOS, UNIX,... 
VM,MVS,VMS, 
GCOS 8,UNIX 
MPE 

VSE, VMS 
DOS,MVS 
VMS 


Equipos (material y logical) sobre los que están implementados los principales SGBD relacionales. 


Se han establecido tres formas norma- 


les para las relaciones (tablas) de las BDR (las 
formas normales 4.* y 5.* son muy específicas 
y no merece la pena detallarlas). 

Una relación está en primera forma nor- 
mal (PFN) si no incluye ningún grupo repeti- 
tivo. Además, se cumple que en una relación 
que esté en PFN los dominios de sus atributos 
no tienen elementos que sean, a su vez, con- 
juntos. Una relación está en segunda forma 
normal (SPN) si, estando en PFN, todos sus atri- 
butos dependen de la clase completa y no sólo 
de una parte de ella. 

Por último, la tabla estará en tercera for- 
ma normal si está en SFN y, además, todas las 
dependencias funcionales establecidas lo son 
respecto de la clave; es decir, si todos los atri- 
butos de la relación dependen sólo de la cla- 
ve y no de algún otro atributo. 
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Hay que reseñar, por último, que exis- 
ten desarrolladas las llamadas máquinas de 
Bases de Datos (MBD). Son, en esencia, máqui- 
nas diseñadas especialmente para soportar las 
estructuras y los modos de trabajo de los 
SGBD. Normalmente, las MBD son el centro de 
algún sistema de ordenadores más sofistica- 
dos y están, por tanto, 'rodeadas' de otros 
equipos que las auxilian: estos otros ordenado- 
res reciben las peticiones de información del 
usuario y las transcriben a los lenguajes pro- 
pios del SGBD; y reciben las respuestas y las 
preparan para su adecuada presentación al 
usuario. Entre las MBD hay algunas (ADABAS, 
por ejemplo), que se soportan en equipos con- 
vencionales (o compatibles) comerciales; otras 
(IDM 500, por ejemplo) son máquinas especí- 
ficas cuya arquitectura está especialmente 
pensada con esta finalidad. 


TERMINOLOGIA = 


GLOSARIO DE TERMINOS 
UTILIZADOS CON LAS BASES 
DE DATOS RELACIONALES 


Atributo. Cada uno de los "campos" o aparta- 
dos de que consta cada anotación (ocurren- 
cia o tupla) que aparece en una tabla. Los 
atributos de cada tupla aparecen en colum- 
nas encabezadas por el nombre del atributo. 


BD. Se utilizan estas siglas para referirse a las 
Bases de Datos. 


BDR. BD relacional. 


Campo. Cada elemento de la tabla. Se utiliza 
más este nombre por similitud con los com- 
ponentes de un registro (asimilable a una 
fila de la tabla) de los sistemas convencio- 
nales de almacenamiento y recuperación 
de datos. 


Cardinalidad. Cardinalidad es el número de 
filas o tuplas que aparecen en una tabla re- 
presentativa de una relación. 


Concatenación. Una de las operaciones re- 
lacionales. Consiste en la reunión de dos ta- 
blas o relaciones a través de un atributo co- 
mún, basándose en la similitud de valor de 
dicho atributo en las diferentes tuplas de la 
relación. 


Diferencia. Operación de conjuntos. El re- 
sultado de la diferencia de los conjuntos 
A y B (A-B) es el conjunto de los elementos 
de A que no están en B, 


Dominio. También llamado "dominio de dis- 
curso". Conjunto de los valores que puede 
adoptar una variable. En la teoría relacional 
se utiliza para definir el ámbito de defini- 
ción de los valores que puede adoptar cada 
atributo. 


Elemento. Campo que aparece en el cruce 
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de una fila (o tupla) y una columna (o atri- 
buto) de una tabla. 


Formas normales. Presentación especial de 
las tablas representativas de las relaciones 
en una BD relacional. Se utilizan las formas 
normales para definir las relaciones, con el 
fin de evitar duplicidades, pérdida de infor- 
mación, etc, Suelen utilizarse tres formas 
normales (1.* a 3.*) llamadas PFN, SPFN, TFN. 


Grado. Grado es el número de columnas de 
la tabla que representa una relación. Coin- 
cide con el número de atributos de la tabla, 
que es igual al número de elementos de 
cada tupla. 


Intersección. Operación de conjuntos. La in- 
tersección de los conjuntos A y B está for- 
mada por el conjunto de los elementos que 
pertenecen simultáneamente a A y aB. 


MBD. Máquina de Base de Datos. Estructura 
(física) de ordenador(es) electrónicos para 
la más eficaz implementación de un sistema 
de Gestión de Bases de Datos (SGBD). Es un 
computador específicamente diseñado con 
esta finalidad. 


Modelo. Paradigma de representación del 
conocimiento para la adecuada estructura- 
ción de los datos. En los SGBD, en general, 
se utilizan modelos jerárquicos, en red, re- 
lacionales, de entidad-relación, basados en 
clases-objeto, etc. Cada modelo de repre- 
sentación suele llevar emparejado un len- 
guaje adecuado para el tratamiento de los 
datos. 


Objeto, representación dirigida al. Mo- 
delo de representación de la información 
muy utilizada modernamente. Existen traba- 


TERMINOLOGIA HERA AAA DON AA NS 


jos que reúnen las ideas del modelo objeto 
con el modelo relacional para su mejor efi- 
cacia. 


Ocurrencia. Cada aparición de una unidad 
de datos en una relación. Aparece repre- 
sentada como una fila en la tabla correspon- 
diente a dicha relación. 


Producto cartesiano. Operación de conjun- 
tos. El producto cartesiano de los conjuntos 
se construye combinando los elementos de 
uno de los conjuntos con los del otro. En los 
diferentes SGBD relacionales se suelen fa- 
cilitar herramientas para realizar algunas 
variantes del producto cartesiano. 


Proyección. Operación relacional. Consiste 
en la obtención de una tabla reducida a par- 
tir de otra dada, por extracción de ciertas 
columnas (atributos) de ella. 


Registro. Unidad de información de un fiche- 
ro de datos. En las BD relacionales se da 
este nombre a cada una de las ocurrencias 
de un tipo de datos (o fila de la tabla). 


Relación. Elemento básico de una BD rela- 
cional. Es el conjunto homogéneo de datos 
existente sobre una materia. Viene repre- 
sentado por una tabla de filas y columnas. 
Normalmente se utilizan de un modo indis- 
tinto los nombres de tabla y relación. 
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Restricción. Operación relacional. También 
se llama selección. Ver Selección. 


Selección. Operación relacional. Consiste en 
la creación de una tabla reducida (a partir 
de una dada) por extracción de algunas fi- 
las (o tuplas) de la primitiva, de acuerdo con 
un criterio dado. 


SGBD,. Sistema de Gestión de Bases de Datos. 
Conjunto formado por el modelo de repre- 
sentación de los datos, las herramientas 
para su implementación y un lenguaje para 
su fácil manejo por los usuarios. 


Tabla. Plasmación gráfica de una relación, en 
un sistema relacional. Á veces se usa en vez 
de relación. Ver Relación. 


Tupla. Cada una de las ocurrencias (filas o re- 
gistros) de una tabla representativa de una 
relación. Tiene tantos elementos como atri- 
butos se consideren en la relación. Su lon- 
gitud (en campos) define el grado de la re- 
lación. 


Unión. Operación relacional. Se da a veces el 

nombre de unión a la concatenación. Ver 
Concatenación. 
— Operación de conjuntos. Unión o reunión 
de los conjuntos A y B, es el conjunto forma- 
do por todos los elementos que están en A 
o en B, o en ambos. 


VOCABULARIO DE INFORMATICA 


Búsqueda. Localización de un dato. General- 
mente se refiere a la localización de un re- 
gistro en un fichero, o un sector o una pista 
en un disco. 


Búsqueda binaria. Método de búsqueda 
que se aplica a ficheros clasificados. El sis- 
tema consiste en ir efectuando divisiones en 
dos partes iguales, y buscar el elemento de 
que se trate en una de ellas. Una vez loca- 
lizado en una de las partes, ésta se vuelve 
a dividir y se repite la operación. Es un mé- 
todo de búsqueda relativamente rápido. 


Búsqueda dicotómica. (Ver Búsqueda bi- 
naria.) 


Búsqueda secuencial. Método de búsque- 
da que consiste en inspeccionar los elemen- 
tos del fichero partiendo del primero hasta 
alcanzar el elemento deseado. Es un siste- 
ma muy lento, pero en ciertos casos, si el ar- 
chivo está estructurado en forma secuen- 
cial, es el único posible. 


Byte. Conjunto de bits a los que se considera 
formando una unidad. Normalmente son 
más cortos que una palabra. Habitualmente 
se considera el byte de 8 bits. 


Byte por segundo. Medida de la velocidad 
de una transmisión. Se refiere al número de 
bytes transferidos en un segundo. 


Cabecera. a) Encabezamiento de un impre- 
so o informe. b) Información que se da al 
contenido de un bloque de datos. 


Cabeza. a) Puede referirse a una cabeza de 
grabación magnética (diskette, disco duro o 
cassette) para escribir datos en esos dispo- 
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sitivos o leerlos. b) A la cabeza de escritura 
de una impresora. 


Cabeza de lectura/escritura. Dispositivo 
consistente esencialmente en unos bobina- 
dos sobre núcleos especiales, dedicada a 
leer o escribir datos. (Véase Cabeza.) 


Cabrestante. Polea muy especializada y pre- 
cisa que arrastra la cinta magnética (en uni- 
dades de cinta o cassettes). Su precisión es 
fundamental para la grabación y posterior 
recuperación de los datos. (Los carretes 
donde se arrolla la cinta no controlan en ab- 
soluto el movimiento de ésta.) 


Caché, memoria. Memoria inmediata. Se 
utiliza como memoria de almacenamiento 
intermedio en ordenadores grandes, gene- 
ralmente, Sirve para reducir tiempos de ac- 
ceso a la memoria central. 


CAD (Computer Aided Design). Diseño 
Asistido por Ordenador. Paquetes gráficos 
en los que el diseño se realiza con un ter- 
minal de ordenador. Los dibujos se almace- 
nan en ficheros recuperables para ser me- 
jorados, etc. También disponen de algunos 
programas de cálculo. En resumen, consti- 
tuyen una ayuda completa para el proyec- 
tista, realizando tanto cálculos como gráfi- 
cos. (Véase CAM y CAD/CAM.) 


CAD (Conversor Analógico Digital). Dis- 
positivo que convierte señales analógicas (o 
continuas) en digitales (o discontinuas). 
Existe otro dispositivo que realiza la acción 
inversa, el Conversor Digital/Analógico. 


CAD/CAM. Sistema integrado que reúne un 
paquete de diseño asistido (CAD) y otro de 
fabricación asistida por ordenador (CAM). 


VOCABULARIO DE INFORMATICA 


Cadena. Sucesión de caracteres que se toma 
como unidad para utilizarla en algún pró- 
ceso. 


Cadena, búsqueda de. Técnica en la que 
cada elemento contiene un identificador 
que permite la localización del siguiente 
elemento. 


Cadena, lista, listado. Lista de elementos 
que pueden estar dispersos, en la cual cada 
uno de ellos contiene un identificador que 
permite la localización del siguiente ele- 
mento a considerar. 


Cadencia. Demora producida por la ejecu- 
ción de una operación de entrada/salida, y 
almacenaje o presentación de un dato. 


CAE (Computer Aided Education). Ense- 
ñanza Asistida por Ordenador. Paquetes de 
enseñanza interactiva en las que el ordena- 
dor colabora con el profesor. Por ejemplo, 
para aprender a escribir a máquina el alum- 
no va escribiendo un texto que aparece en 
la pantalla. Terminado éste, el ordenador 
cuenta el número de palabras y el número 
de fallos. Si el alumno ha superado ese ni- 
vel, pasa al nivel siguiente. Si no lo ha supe- 
rado, generalmente se repite la secuencia. 


CAL (Computer Aided Learning). Apren- 
dizaje Asistido por Ordenador. Semejante a 
CAE. (Véase CAE.) 


Calculadora. a) Dispositivo de proceso de 
datos diseñado especialmente para realizar 
operaciones aritméticas. Normalmente sue- 
le requerir la intervención frecuente de un 
operador. b) Dispositivo que lleva a cabo 
todo tipo de operaciones digitales, aritméti- 
cas y lógicas. : 


Call (llamada). Se utiliza: a) Para transferir 
el control a una subrutina específica. b) En 
comunicaciones, operaciones necesarias 
para conectar dos estaciones. Utilización 
del canal de conexión entre ellas. 


CAM (Computer Aided Manufacturing). 
Fabricación Asistida por Ordenador. Siste- 
ma informático de planificación y control de 
fabricación. Suele estar integrado con un 
sistema de diseño asistido, formando un 
CAD/CAM. (Véase CAD.) 
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CAN. Se refiere al carácter de cancelar, 
CANCEL. 


Camino. a) Especificación completa de un fi- 
chero dentro de un subdirectorio en el sis- 
tema operativo MS-DOS. b) Vía lógica para 
la transferencia de datos. Sinónimo de canal 
lógico. 


Campo. Parte de un registro que contiene un 
dato individual. Por ejemplo, un fichero de 
una biblioteca tiene registros, cuyos cam- 
pos pueden ser los siguientes: título, autor, 
tipo de libro, fecha de publicación, etc. 


Canal. a) En transmisión de datos, vía de co- 
municación entre la unidad central y los pe- 
riféricos, tanto en sentido físico como lógi- 
co. b) Zona de un dispositivo de almacena- 
miento que es accesible a determinada es- 
tación de lectura o escritura. 


Capstan. Dispositivo de las unidades de cin- 
ta magnética de los ordenadores electróni- 
cos. (Véase Cabrestante.). 


Carácter. Letra, dígito u otro símbolo cual- 
quiera que se utiliza en la organización, con- 
trol o representación de los datos. Pueden 
ser las letras del alfabeto, los números, sig- 
nos de puntuación, caracteres especiales 
de control, etc. 


Carácter de control. Carácter pertenecien- 
te al conjunto de caracteres de un determi- 
nado equipo, que produce un efecto espe- 
cial determinado. 


Carácter, frontera de. En reconocimiento 
de caracteres, el mayor rectángulo uno de 
cuyos lados sea paralelo al borde de refe- 
rencia del documento y cuyos otros dos la- 
dos sean tangenciales a una línea de carac- 
teres especificada. 


Caracteres gráficos. Subconjunto del jue- 
go general de caracteres utilizado específi- 
camente en la creación de gráficos. Son uti- 
lizados en paquetes gráficos y sirven para 
ir componiendo los gráficos y dibujos, colo- 
cándolos uno junto a otro, etc. El ordenador 
los considera y utiliza como si fueran cade- 
nas de caracteres normales, 
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